C-1;#%b9`i=+4 TCTC555 5 5 5 5 55 TT T  T -  (T aT T T T T T aT aT  a T  T T HS C+T SCREENT T 3.0$ CCtCONVERT O$ C pProgCallbL (%CtCtTCD!2SnCbThe wrong parameters were passed to the converter. To convert files, open them from the File menu.xTC B %Ch 06.00.8000.00 ]C!You must be using FoxPro version 06.00.8000.00 or later to run converter.xTC B%C0Ttransprt%C005 T0MCAThe transporter program could not be found. Conversion cancelled.xTCB/T C MasterConvert  N%CgOMasterbO?7C+There was a problem starting the Converter.xTC B% 7C+There was a problem starting the Converter.x  T  T T TC<  %  B BU PFILENAME PFILETYPEPVERSION PPROGCALLILIOLDLANGUAGEOPTIONSLANGUAGEOPTIONS GTRANSPORT GRETURNVALGLOGGERRORGASHOWMEGOPJXGOMASTERGOTHERM GICALLINGPROG LHADERROR DOCONVERT 4%'3B%YTaB{G%4T'Conversion cancelled at user's request.1 m.err = .T. TFatal Error in Converter: C C Error: CEC C Error Number: CC ZC C Method:  C C Offending Code: CEC C File being processed: CC  Not recorded 6T a%C  .T CDEFAvCError.LOG T +C 0 c BT CDEFAvCCError=CCdZR.LOGT  %C % 8;fCZThe disk is full, and the converter cannot continue. The log file cannot be saved to disk.xTC %%CglogbC T /T  C C  C C C C%-- t, L H C THIS.formRefbO` %\ ! C THIS.projcallbL%  2 % T% 8%C:An error occurred in the Converter and it cannot continue. The error has been logged in C ]. Open the logfile?x/  Ta%TCtRETURN TO &cCallingProg B(UERRORNUMMETHODLINEICTRIFHCERRMSGTHIS LLOCALERR LHADLOCERR CCURRENTFILE LHADERRORCLOGFILEGLOGDEBUGFORMREFCLEANUPPROJCALLGOPJXGOTHERMGERROR GICALLINGPROG CCALLINGPROGK 4=T  CfCC : 6C C U CFILENAMECACTIONGLOGL4TC2C Begin Conversion CCU CFILENAMETHIS DTSTARTTIMEWRITELOG4TCCC ]End Conversion: CC CCJ(Successful conversion took CCZA seconds.)6U CFILENAMETHIS DTENDTIMEWRITELOG DTSTARTTIME4   T aT CWFTa Q T-% T -T-Q F  B UCFILELDBFSAVEAREATHIS LLOCALERR LHADLOCERR 4/%C0 C  C >BQ!o_temppctC' QUCSCXFILE APLATFORMSREADABLETHISISDBF_TEMPPCTDISTINCTPLATFORM4TCC6% HC 5_BWINDOWS 3w BMAC 2 BDOS 4 BUNIX H 5 BMAC 3BWINDOWSU IPLATFORMU4]%CC m.pFilenamebC CC aC 06 C m.pFiletypebC T-T T 0TCC  C ]6TaBTCWTaG2G.GZGb( %-lG&(AMicrosoft Visual FoxPro Converter Utility Version 6.00a 01/01/98)C- -- DEBUGGING ON6 G&( GG+(foreignG+(conprocs G$(GAG Gk(MACHINE GC(GeGQ G^ %- HGEG \GE G G %3rGh(,G{{%C G(G~(SprThermG~(CvtAlert G;(. G<(,FT CWU PFILENAME PFILETYPEPVERSIONTHIS LUSERCALL ACONVPARMS LHADERRORNCURRENTWORKAREAOLDDATASPRTHERMCVTALERT NNEWWORKAREA%ON#G. %ONCGZ %C_G&(uG&(%ONG2 G$(T ON ESCAPE &cOld T SET ESCAPE &cOld T  SET COMPATIBLE &cOld T  SET EXCLUSIVE &cOld GC( Gk( T  SET CLASS TO &cOld G(#%FOREIGNC PROCEDUREv<foreign$%CONPROCSC PROCEDUREv<conprocsT SET TRBETWEEN &cOld T SET FULLPATH &cOld T SET UDFPARMS TO &cOld T SET DEVELOPMENT &cOld T SET DEBUG &cOld T SET EXACT &cOld T SET KEYCOMP TO &cOld T SET CPDIALOG &cOld G;(G<(T SET PATH TO &cOld T SET LIBRARY TO &cOld T ON ERROR &cOld %C  FU COLDTHISOLDSAFE OLDNOTIFYOLDMESSOLDTALK OLDMEMOWID OLDONESCAPE OLDESCAPE OLDCOMPAT OLDEXCLUSOLDBLOCK OLDCOLLATEOLDCLASS OLDDEFAULTFOREIGNCONPROCSOLDTRBE OLDFULLPATH OLDUDFPARMOLDDEVOOLDDEBUGOLDEXACT OLDKEYCOMP OLDCPDIALOGOLDPOINTOLDSEPOLDPATHOLDLIBROLDERROROLDDATANCURRENTWORKAREA5 555  TT C H]> SCREENC3.0 CC  T T  T a T a T -K%C cvtdlog30scx'Select the file or directory to update. /BTGT C thermometerConverting screen CCC @N%C C TCa6T Ca 6C  . SCREENC3.0 }%C cvtalert30scx"Do you want to convert the screen CC  to latest Visual FoxPro format? BTGT C thermometerConverting screen CCC @N%C BC C TCaN%C oConvObjectbOTaTB%Ta<TBTC< SCREENY TCC%CCsB%C4%CWINDOWSCMAC T {%C cvtalertscx"Do you want to convert the screen CC  to latest Visual FoxPro format? _BTGT C thermometerConverting screen CCC @NC (C C T  TCN%C oConvObjectbOuTaTB%Ta<TBTC<%CbC*%C 3 &$TC_MAC.C G&(Converting screens... Ta. PROJECT CATALOG  5TC TaT ZTM (and all of the forms and reports within it) to latest Visual FoxPro format? HA; / PROJECTC3.0 T T project T  cvtalertpjx3-T to latest Visual FoxPro format? PROJECT> T T project T  cvtalertpjx/ CATALOGCFOX  T  T catalog T  cvtalertpjx1 CATALOGCDBASE / T-T !T catalog T  cvtalertcat2; BS%C Do you want to convert the CC"]    BNT Ctherm2Converting project CCC @NC C TC N)%C oConvObjectbO ] TaB% Ta<B G&(Converting project...TC< Ta REPORT %C cvtalertfrxDo you want to convert the CCCLBX label report 6CC  to latest Visual FoxPro format?  BTC GT C thermometerConverting screen CCC @NC TC#aN%C oConvObjectbO` TaB% T<TaB%$ T%B$G&(Converting other files...TC< Ta LABEL# MENU: DB4QUERYU DB4FORMo  DB4REPORT DB4LABEL FORMATNT C thermometerConverting format file CCC @NC C TC&N%C oConvObjectbOyTaB%Ta<BTC< Ta FB+FRXU' G_PLATFORMSAPARMS OCONVOBJECT CCONVTYPETHIS ACONVPARMSIFILEDIRCFILELSCXLVCXLRECURSEGETOPTSGOTHERM PARTIALFNAMEUPDATE UPDATESCXSCX30CONVERTERCLASS LHADERROR GRETURNVAL CONVERTER APLATFORMSGETPLATFORMCOUNTKPLATSCXCONVERTERCLASSLHANDLEDTHECLASS CFILETYPE LMAKEBACKDIRCOBJNAMECCVTMSG CFILENAMEPJXCONVERTERCLASSFPCCONVERTERCLASSDB4CATCONVERTERCLASS PFILENAMEFRXCONVERTERCLASS LCONVERTED CFRX2FILESFMTCONVERTERCLASS. 455   J(J-( Ta T T CCC  T  T TC N&%CoAlert.chkBothPlatbOTC &%CoAlert.chkSet30DefbOATa  T<% {B-T  T  T   T   T  T   T   UOBJNAMECMSGOALERTCBACKDIRCLOGFILE CCODEFILELLOGLDEVMODELBACKUPNOPTDEVNCVTIPLATFORMCOUNT IBOTHPLATTHIS ACONVPARMS CHKBOTHPLATENABLED CHKSET30DEFSHOWMJBAMicrosoft Visual FoxPro Converter Utility Version 6.00a 01/01/98)UUU 4 5"T CC C$ 6"T CC C^ 6BC i AC H @AC % @CC =g @CC \g @@CC RgUWZPDATEWZPTIMEDT4 H C" BB" " C' pB' '2B[ ]UPSTRING4B%C BackColor BackStyle BorderWidthFontBoldt%C pB HU C B C m.fp25fldbC H C >B C ForeColor BackColor FillColorDisabledForeColorDisabledBackColor ItemForeColor ItemBackColorDisabledItemForeColorDisabledItemBackColorSelectedItemBackColor BorderColorPictureIconT C  C FontNameName ControlSourceAliasOrder ChildAlias ChildOrder ParentAliasRelationalExprInitialSelectedAlias WindowList:T CCC =( C CC 6 C CursorSourceT C 8 C CaptionValueC ="'[ 6T (C )5 C CaptionCC ="'[ ~T C 2T (C ) C m.fp25fldbNT CC Z C m.fp25fldbL%T C  .T..F.6 C m.fp25fldbDUT {C *},%C m.fp30parentbC C  T  . %C >bACWARNING Expression too long at Record # CCCOZ&%CoForm.cCurrentFilebCCWARNING -  Expression too long at Record # CCCOZ, C."The expression was not converted. See the log file for details.xZCWARNING -  Expression too long at Record # CCCOZ."The expression was not converted. See the log file for details.xB2T   =  C C BU FP30PROPFP25FLD FP30PARENTTHIS ISDEFAULT ADDQUOTESWRITELOGOFORM CCURRENTFILEFP3PROPK 4 H Cm.cValuebNGT CCZ Cm.cValuebL"T C .T..F6 HD BackColorB- BackStyleB1 BorderWidth B1 FontBold5B.T.2DB-UCPROPCVALUETUTHISFP3PROP4  %CC EB% %CC   B7%CCCC =f.T..F.CC > 6T CC = C& C& CC \%SYS(16C f&T C SYS(16_SYS(16&T C sys(16_sys(16&T C Sys(16_Sys(16T RETURN T CW> > C F  +a%T C#REGItemp4a---a% C A! T"(TC#REGItemp4aa -aTC .> C "C6*[TC .> C "C6*[T  %C 3 F G F {%C ReadValidValid ErrorMessageMessage ReadActivateReadDeactivateReadShowReadWhenWhenT C f+%CPROC CFUNC ^T CCC =fREAD C \,CCC =fERROR C = 66 (%C   ReadShow  > C C  >  %C ValidWhen 'TC C C C C TCC FUNCTCC PROC"TC 6"TC 6 T CCF\%C  zT   PROCEDURE  C C  CC RC C C RC   C C 6ENDPROCC C C C  F BU NEWMETHODFP25FLDCTYPENEWPROPCTMPSAVEAREAGENDIR NEWMETHOD2 GENDIRCOUNTTHISADDPROP_FOX3SPRTEMP1TEMP4 CLEANWHITEFINDARRYMEMOFINDNLINEC25ALIAS EXTRACTPROCSSPRMEMOTEMP3IFUNCIPROC FP3METHOD-       T  +a+T CCDECLtemp4a- aaf% C !%CC `R;T 'TCDECLtemp4aa aa% !TC T  +aT   %C R;_!T C  T  0T CC CDECLC f\;T  T C %CC ? T  K%CC =fA CC =fAR  CC =fARE  +T C C \T  T  +a+T CCDIMEtemp4a- aaf% C B!%CC `R;T 'TCDIMEtemp4aa aa% !TC T  +aRT   %C R;!NT C  T  0T CC CDIMEC f\;T  T C %CC  T  ~%CC =fN CC =fNS  CC =fNSI  CC =fNSIO  CC =fNSION  +T C C \T  U NARRYCT CARRYNAMENARRYLENJIPLACECTEMPNCTRMEMOFINDTEMP1THISA_DIMES;45 T SCC]=F%C 0n HXj C   RCC CFile ` could not be opened. It was not converted.=C Cannot open . File is already open.xTa CKCC CFile ` is read-only. It was not converted.<CC ` is read-only. It was not converted.xTa C Q  2j,CC Invalid file format.JCFile  could not be opened. It was not converted.xTa HCC CFile ` not found. It was not converted.@CFile  not found. It was not converted.xTa%) B B U CFILE CTHISALIASNFHREADABLETHISWRITELOG LHADERROR PREADONLYISDBFR4 HK label6 Blbl textboxZ Btxt editbox~ Bedt line Blin shape Bshp commandgroup Bcmg4 commandgroup commandgroup * Bcmg imageL Bimg optionbuttonu Bopt optiongroup Bopg checkbox Bchk combobox Bcbo spinner  Bspn oleboundcontrol7 Bole listbox[ Blst dataenvironment Bde cursor Bcrs relation Brel formset Bfrs form Bfrm pageframe9 Bpgf2K BcU CCLASSTYPEH;R,1Called Converter function that wasn't overridden! BUs4  Hl 5]4BCCC f exists. Overwrite it?x2lB-U CFILENAMENRESULT"TC].PRG%C (  %3 lCFXP TCCFXPА%+C TC> C  CFXPBUCTMPFILETAGTAG2IFHIBUFFER50T CCPCC]=.PJX4h1 MCN N MM L L L L LLNNMMMNNCCMMMMLC MTCr   C HCC !"#$ %U& CTMPPJXNAMETHISPJXNAMENAMETYPEID TIMESTAMPOUTFILEHOMEDIREXCLUDEMAINPROGSAVECODEDEBUGENCRYPTNOLOGO CMNTSTYLEOBJREVDEVINFOSYMBOLSOBJECTCKVALCPIDOSTYPE OSCREATORCOMMENTS RESERVED1 RESERVED2SCCDATALOCALKEYUSER NEW30ALIAS NTIMESTAMP LSAVECODELDEBUGLENCRYPTCDEVINFOP30TO40% r C C&]C  P  CC:C: C;6CCCC >=fUTHISLDEVMODE NEW30ALIASNAME TIMESTAMPTYPEEXCLUDEMAINPROGCPIDKEY CSTUBFILE NTIMESTAMPLEXCLUDELISMAINCOUTFILE%C Q%C% F%CuserbM#)J> C C  *- end of log [CC]C C (QUTHIS PJX25ALIAS NEW30ALIASLLOGUSERGLOGCLOGFILEA 4)5        T CW F'%CC0  !(C4C(CCT CPATHvT  T ~SH C' \cFName = ALLTRIM(IIF(AT(CHR(0),&cField) > 0,LEFT(&cField,AT(CHR(0),&cField)-1),&cField)) %3 C: TC:\TC%C0 %CC0T CC Ի% |ICFile C not found. It was not converted..oTC cvtLocate The file C? could not be found. Would you like to try and locate the file?N < H  T  T Ta.T CC C  Locate file:T-   ICFile C not found. It was not converted..2T %C 9TaB$REPLACE &cField WITH m.cTmpFname T C%  T  , SET PATH TO &cNewPath SET PATH TO &cOldPath F %: .CBacking up project files...jSELECT &cField, type FROM DBF(THIS.pjx25Alias) WHERE type $ m.cType AND !DELETED() INTO ARRAY tmparr % B T - ( jT CCCCC C *CC CC C = C 6*T CCC C %C 0 cCCCC C Could not locate file listed in C `. Not backed up. T a.%C 0  (  H,5 C sKC scx (C SCT(C SCT4 C VC vcx (C VCT(C VCT4 C RC frx A(C FRT(C FRT4 C BC lbx (C LBT(C LBT% 6 l%CUSome files are missing or could not be located. They will not be converted. Continue?x2 TaU CFIELDCTYPECDESC CBACKNAME CTMPFNAME CTMPFNAMEOLDLNOFINDSSAVEAREACCURDIRINCVTCOLDPATHCNEWPATH CTHISPATHCFNAMETHIS PJX25ALIASCBACKDIR CCURRENTFILELBACKUPCMEMOEXTTYPECHOMEDIRWRITELOGOLOCATESHOW LLOCALERR LHADERRORGOTHERMUPDATE2TMPARRGOMASTERC F"TCPATHv,C~K V  T - %C C C 0T C C %%C C  =F Q "%C.C/CLASS ( T aQ F% %CC ] Compiling.T a&TCC C .ERR%C 0   %C 0 pCC ]UThe file could not be compiled. Check the .ERR file for details and compile manually.rC The file C ]M could not be compiled. Check the .ERR file for details and compile manually.xT-T -UCFILE LIS30FILECPATHCERRFILETHISWRITELOG NEW30ALIASPJXNAMETYPECHOMEDIRNAMEREADABLEISDBF LLOCALERR LHADLOCERRH F~RBA %CCC 0=TCC %%C C  9F Q !%C.KCK/USER $ -C   %C4   %CC ] Compiling. Q FU CFILETHIS NEW30ALIASTYPECHOMEDIRNAMEREADABLEISDBFOBJTYPEPLATFORM COMPILEFRXWRITELOG CTCDATABASEv F ~ d T - %C C C 0T C C %%C C  @F Q '%C.C/ OBJECTNAME + T aQ F %  T-%CC ] Compiling.%C ETC(A'%CC]C ]=%CC 5 T aG(CC ]! % ~C ]!SET DATABASE TO &cOldDataBase UCFILE LIS30FILE LOPENSHAREDIICNT COLDDATABASEADBCTHISWRITELOG NEW30ALIASTYPECHOMEDIRNAMEREADABLEISDBFU45-       T  T  G 1 DO EscHandlerC T C T CT CT CT CT C T C T C T C T  T PJT% $?CConversion Log for  [CC] cC Converter: AMicrosoft Visual FoxPro Converter Utility Version 6.00a 01/01/98) C .TCC PCC]=.PJX ( %CC PJT0)C PJT(C PJTT  T C  %C T aB-Ta H'[! C.C/NAME H! C.C/NAME T  T ! C.C/NAME ! C.!C/NAME  Q %C  T aB2[Q T a*CInvalid Project file selected.xBT C - HT !"T #$T %&T 'T (CC  SC' ( )T *+Cname s|R|B|V|Kproject +%,  n -T aB-%C_FOX3PJXQ.h_FOX3PJX/M1C 3@Converting screens...0U1APARMSTMPARRCOLDIJNLENNCT CTMPPJXNAMESETIDGOPJXTHIS AMASTERPARMS NTIMESTAMPTSTAMPPJXNAMECBACKDIRLDEVMODE CCODEFILELLOGCLOGFILELBACKUPIPLATFORMCOUNT CCURRENTFILECMEMOEXTWRITELOG PJX25ALIASOPENFILE LHADERRORGOTHERMVISIBLELSET30DEFAULTS CONV20PJXTYPELDEBUGDEBUGLENCRYPTENCRYPTCDEVINFODEVINFO HIGHSCXIDCHOMEDIR NSCREENSETS NSCREENCTR BACKFILESGOMASTERCLEANUP_FOX3PJXSPRMEMOUPDATE2 5TCEXACTvG%Ctransdlgc<, T %C =oC &C f sRBC' %C T CC &   T % bT Cy( ^8%CC=SCC=F ZTCC&TCCf%CCCf.!%CSCXFRXLBXVQC F CC SCX SCT C FRX FRTLBT661% (  jT CCCCC C *CC CC C = C 6 *T  CCC C %C 0%C 0m  %C 0i. (  H4 C sC scx %CC SCT0 (C SCT(C SCT4 C RC frx %CC FRT0(C FRT(C FRT4 C BC lbx %CC LBT0(C LBT(C LBTC *.*%CafbU(C%CRD{. C<#%C *.*%CafbU %C 0  %CC PJT0LC PJT%C 0p %CC PJT0C PJTSET EXACT &cOldExact UICPJXNAME CBACKNAME CTMPFNAMECEXTNTABLES COLDEXACTAFAUTRANSDLGTHIS PJX25ALIASNAMETYPETMPARR NEW30ALIASCHOMEDIRLBACKUPCBACKDIRPJXNAME5 T F T CNT   F  ( aT -C  %C . T %  TCC  %CCi.%C4%CWINDOWSCMAC T TC  (C T  TC -aaaN%CoFormbOjT a%T a%CQ<%  %  } F -  S %C44-T CCC!CC !\ "%CC #  T C "C  F#)%C$ $( CC File already converted. SPR file created. %%C0Qy%C\QT a<.T -! (C &<%CC &0C &$%CCC &SCT08 CC &SCT 'T ( (5CV@Converting other files...)* F ~C'  H s. S. H. VK % +  & LT CCCCC ,C,CC ,\,6 "&T &CC,C TCC &(TCVCX VCTSCT63T &SCC]R. % -cB%C .C &0CC .C & 0 - .C &(C &=C .C & (CC & _OCFile C & not found. It was not converted. %T .U 0%CC 0 CCC  0 LCFile C  not found. It was not converted. %T .#C (C &3CC  (CC & TC /-aaaN%CoFormbO T a % T a%C Q T0<%CC &0] #C &(C C &"%CCC & 0 3CC & (CC  CC & "T CC.nameC r 1,23456C.nameC .mainprogC.typeC .timestampC.homedirC.excludeCCC C6>=f 7 R B  8 9(T 8CR FRXLBX6(T 9CR FRTLBT6'T :FCC]R. 8FT ;CCCCC ,C,CC ,\,6 "d%CC - .C ; ;60 0CCC - .C ; ;6 90 Y HCFile ; not found. It was not converted. %.6C - .C ; ;6( :FCC - .C ; ;6 9(C : 9TC <-aaaN%CoFormbOT a%  % % \ =C ;File already converted.C C  %%CQT -%C :0 :%CC : 90;C : 9r 1,23456C.nameC .mainprogC.typeC .timestampC.homedirC.excludeCCC ;C6>=f 7 P TCW"T CC.nameC F 1-CC fC,f %C4dC NFile is already in this project. It was not converted or added to the project. %r 1,23456C.nameC .mainprogC.typeC .timestampC.homedirC.excludeCCC C6>=f 7.C No conversion necessary. % F 2"T CC.nameC r 1,23456C.nameC .mainprogC.typeC .timestampC.homedirC.excludeCCC C6>=f 7.C No conversion necessary. % F 1)>3C =CO>3H @ A B C )D TE B FUGIZOFORM CSAVEAREACOLD IWHICHPLATCEXT1CEXT2 APLATFORMSTHIS PJX25ALIAS NRECCOUNT NTMPCOUNTPREFORM CREATEPJX HIGHSCXIDLISMAIN GETNEXTFSETCOUTFILEEXTPROJAPARMSIPLATFORMCOUNTGETPLATFORMCOUNT A_S3FILES GETPLATFORMSCXCONVERTERCLASS LHADERRORC25ALIAS LCONVERTED CONVERTERSETIDTYPE CSTUBFILEOUTFILECHOMEDIRISDIRUSERWRITELOG A_S2FILES INSERTSCX NSCREENCTRGOTHERMUPDATE2LSET30DEFAULTSNAMELBACKUPCBACKDIRSCX30CONVERTERCLASS OCONVFORM NEW30ALIASMAINPROG TIMESTAMPHOMEDIREXCLUDEKEYP30TO40CFRXEXTCFRTEXTF2FILESF3FILESFRXCONVERTERCLASSTSTAMPIDFOR COMPILEALLSCX COMPILEALLFRX COMPILEALLDBCCLOSEPJX COMPLETE2GOPJX CCURRENTFILE F$%C .CommentsbUQ >C .Comments %C.UserbU>C.UserUTHIS NEW30ALIAS PJX25ALIASCOMMENTSUSERUl4TCC&]_r C  K CCCC >=f#%  C  E&T C_MAC.Cqr C  K CCC_MACCC >=f% eU LNOADDSPR CFILENAMETHISCOUTFILE NEW30ALIASNAME TIMESTAMPTYPEEXCLUDEKEY NTIMESTAMPLEXCLUDEIPLATFORMCOUNTAPARMSPJXCONVERTERBASE INSERTSCX\ 5CTransporting project CC@T CUDFPvG^ ,- SET UDFP TO &oldudfp G&(Converting project...3CConverting project CC@T C !%C.C/NAME NQ T aB-BaU OLDUDFPGOTHERM SETTITLE2 PARTIALFNAMETHIS CCURRENTFILE GTRANSPORTPJXNAMEGASHOWME PJX25ALIASOPENFILE LHADERROR=T C0T CC 6C%C_FOX3PJX%( lr     -P-CCC C>=fQ %C0,%CC0bC  C PJT&%CCC  .PJX0*=CC  .PJX( &%CCC  .PJT063=CC  .PJT(C PJTU CTMPFNAMETHIS CCURRENTFILECHOMEDIR CBACKNAMECBACKDIRLDEVMODE_FOX3PJXSPRMEMO CCODEFILE NEW30ALIASNAMEMAINPROGTYPE TIMESTAMPHOMEDIREXCLUDEKEY NTIMESTAMP CLOSEFILESPJXNAMECMEMOEXT64 5T FHoC& s  C' % T B  TC( vT CCCCC C -CC CC C \ C 62T SCC]R.SCX2T CCC C %I%CC  0#CCC  SCT0 3C  (C  ECC  SCT(CC  SCTT B7%CC 0 CCC SCT0 _OCFile C  not found. It was not converted.T B)C (C  ;CC SCT(CC  SCT(T C -  S %C4-TCCCCC \%CC  TCCT BT CTTTTT%TCC -6T T!T"T #T %%C  C =C&' ??d$%U(PSETIDTMPARRITHISCURSCXID PJX25ALIASNAMEARRANGEDEXCLUDETYPESETID SCRNORDERCOUTFILE A_S2FILES A_S3FILESLEXCLUDECHOMEDIRLBACKUPCBACKDIRWRITELOG CSTUBFILEOUTFILEISDIRLISMAINMAINPROG A_PJXSETS OPENFILES CLOSEFILESDEFWINDSRELWINDS ASSOCWINDSMODALNOLOGO READCYCLENOLOCK MULTREADSGOTHERMUPDATE2 NSCREENCTR NSCREENSETS45  TG 1 DO EscHandlerT-TCTCT CT CT CT CT C TC TC TC TTFCT% ?CConversion Log for  [CC]cC Converter: AMicrosoft Visual FoxPro Converter Utility Version 6.00a 01/01/98)C.TCCPCC]=.FPC( %CC0)C(C T TC%CTaB'%C. C/FOX_FILE  VQTa*CInvalid Catalog file selected.xB F,C' Cscxlbxfrx (TT(CConverting catalog...TaT C TCC-Cpath scx|frx|lbxcatalog %   !TaB-<C dConverting catalog...U"APARMSTMPARRNCTGOPJXTHISISPROJ NTIMESTAMPTSTAMPPJXNAME PJXVERSIONCBACKDIRLDEVMODE CCODEFILELLOGCLOGFILELBACKUPIPLATFORMCOUNT CCURRENTFILECMEMOEXTWRITELOG CTMPPJXNAME PJX25ALIASOPENFILE LHADERRORTYPE NSCREENSETSCURSCXIDGOTHERMUPDATE2VISIBLECHOMEDIR BACKFILESGOMASTERCLEANUP 55 55 T F ~C'  H  fpc4CCC.path] Converted.C   scxdT  % A7C   dConverting screens...  T  TSCREENT TCC]TaT-T T T  T  T  T CCSPRT C% D  T CC %CC .%C @4%C WINDOWSC MAC <T cT C  (C OTT  TC --aaN%C oConvObjectbOT a*CC ]Not converted. %  K%! Y "G F  F##)%C$ "$( ICC ]File already converted. SPR file created. %C# Q#C  %CT a<. &<" frx lbx  T  % ;C   dConverting other files...  TTREPORTT TCC]TaT-T T T  T  T 'C2T (C ) *6CCC TC +--aaN%CoFormbO\T a% %  %!  "CCC ']File already converted.C C  %C#Q#5T -r ,-./0123C .File_name-CC.typelbxBR6 4CC.path-C.TitleC CCCC.pathC3>=f2 55T C.pathT 5C.typeT 5C 5dbfDC 5csq 5fpq 5qpr PdC 5frxRLC 5lbxB4C 5prgPC 5appZx666666rr ,-/123  5 4-C.TitleC CCC C3>=f3CC ]No conversion necessary.  6 7 8 9 T: B ;U<IZOFORMCOLDCTMPFILE G_PLATFORMSAPARMS OCONVOBJECT IWHICHPLAT APLATFORMSTHIS PJX25ALIASPREFORM CREATEPJXTYPEWRITELOGCURSCXID NSCREENSETSGOTHERMUPDATE2 PJXVERSIONPATHLDEVMODE CCODEFILELLOGCLOGFILEIPLATFORMCOUNT CSTUBFILECOUTFILEGETPLATFORMCOUNT GETPLATFORMSCXCONVERTERCLASS LHADERROR LCONVERTED CONVERTERC25ALIASUSERENDLOG INSERTSCXF3FILESF2FILESLBACKUPCBACKDIRFRXCONVERTERCLASS NEW30ALIASNAMEMAINPROG TIMESTAMPHOMEDIREXCLUDECOMMENTSKEY NTIMESTAMPCTYPE COMPILEALLSCX COMPILEALLFRXCLOSEPJX COMPLETE2GOPJXCFULL30PJXNAMETCC&]}r  C  K C .TitleC CCCC >=f#%  C  x&T C_MAC.Cr C  K C .TitleC CCC_MACCC >=fU CFILENAMETHISCOUTFILE NEW30ALIASNAME TIMESTAMPTYPEEXCLUDECOMMENTSKEY NTIMESTAMPLEXCLUDECOLDIPLATFORMCOUNTAPARMSPJXCONVERTERBASE INSERTSCX%CSAoC&scxfrxlbxC' g T % T Cy( 8%CC=SCC=F TCC&T CCf%CCCf*.!%C SCXFRXLBXQC F CC SCX SCT C FRX FRTLBT661% ( jT CCCCC C *CC CC C = C 6 %C 0 Hu C KJM%C 0CC SCT0 CC S2X0 CC S2T0 F  C SCT=C S2X( '=C S2T(C SCT C RM%C 0CC LBT0 CC L2X0 CC L2T0   C LBT=C L2X( '=C L2T(C LBT C BM%C 0CC FRT0 CC F2X0 CC F2T0   C FRT=C F2X( '=C F2T(C FRTC *.*%CafbU(C %C RDm. C < #%C *.*%CafbU %C0 %CCPJT0BCPJT%CCFCT0xCFCTUTHIS PJX25ALIAS FILE_NAMETYPETMPARRNTABLESAUI CTMPFNAMECEXTLBACKUPCHOMEDIRAFCBACKDIRPJXNAMET C TC PJX%C0_%CC0C%%C0%CC0C%C0'+=CC  .PJX(%CC PJT0C PJT3=CC  .PJT(C PJTU CTMPFNAMETHIS CCURRENTFILECHOMEDIR CLOSEFILESCFULL30PJXNAMEPJXNAMECMEMOEXTLBACKUP NEW30ALIAS] 4  TT T T TT CT CT C TC TCC DTC TWINDOWS5   T,TC Ca6,TC Ca6,TC Ca6,TC Ca6,TC C-6,TC Ca6,TC Ca6,TC C-6,T C C -6.T C C 6TC TC% TCCC C TTC% TC$%CCnT-0TCCCCC]=.SCXTCTCTCTCSPR TCT TCTC% 0%CC0CCCfSCX )C(CCS2X%CCCSCT02CCSCT(CCS2TT-2CConverting screen CC"@ !C #T $aT%C&C'[CC]C%MAC   (Macintosh version)6(T)C*T+C,+(+ "%CC - T%  .B-% C/ 'LCCCFile ` is read-only. It was not converted.'B-,T, CC 0%CC ,T%  .B-%T1C , H % C.OC/PLATFORM  -%% %C4 j %C 2 f T3aT .B }%%( 4}%%( 4%   %C 2  T3aT .B$ C.9C/OBJTYPE w %C2 s T3aT .B" C.C/CLASS  % %C5  T3aT .T6aB 2 QC ,_CCC C!Screen file is an unknown format.`It was not converted.'TB%C_FOX3SPR Q7Qh_FOX3SPR8M9M:M;M<M=M>M?M>7> PROCEDURE InitC 7?C C /*----------------------------------------------C C  *- Code from CC C /*----------------------------------------------C C C C +%  C_FOX3PJX I >78@8C  F1UAAPARMSLBACKUP LPROJCALLLFORCETRANSPORTDLOG LNOCOMPILE IMAXTHISTIME IMAXOTHERTIMETHIS OCONVFORMPROJCALL LTRANSDLOGLDEVMODE CCODEFILELLOGCLOGFILEIPLATFORMCOUNT IWHICHPLAT SAVEDPLATJ A_PJXSETSGOPJX LMULTIREADS LAUTOCLOSECBACKDIR A_SCX2FILES A_S2FILES A_SCX3FILES A_S3FILES CSTUBFILECNEWSCX CCURRENTFILE LUSERCALLGOTHERMSETTITLE PARTIALFNAMEUPDATEVISIBLEPLATFORM GETPLATFORMWRITELOGBEGINLOG NTIMESTAMPTSTAMPSCXCOUNT A_SCX2ALIAS KNOWNFILE ERASEBACKUP PREADONLYOPENFILEC25ALIAS CONV20SCX LHADERROR TIMESTAMP SET30DEFAULTS LCONVERTED_FOX3SPRSPRMEMOTEMP1TEMP2TEMP3TEMP4DEFINESLOADCODE_FOX3PJXE 5!TC T 2CConverting screen CC @ C   TC (d F#) %C*-CC  %C4?C DNO%C=(T CTform1Ta"TC C >\CC C  d  (`% :TC FC !T" "%C.C/CLASS o-#formsetT $Q FT CNV%C &'Screen'FONTINFO C#@formset $>'~C@ CO >*C* + F.C CTL%, B -%   C.'%  / \ 0T 012T12C3Ca14T12 0 F 5 6 7 8 9%:  ;T<UC>CMAC    (Macintosh version)6=BC&U?IJORECNRECCFORMSETTHIS NRECCOUNTSCANPLATPLATFORMIPLATFORMCOUNT NTMPCOUNTGOTHERMSETTITLE PARTIALFNAME CCURRENTFILEUPDATEPREFORM CREATESCX NEW30ALIAS A_SCX3ALIASC25ALIASENVIRONOBJTYPEA_PLATADDSRECSNAMECTMPNAME CFORMNAMELINDIRECTWINNAMECINDIRECTWINNAMEADDFSETSCXCOUNT LMULTIREADS A_SCX2ALIASFORMNUMCLASSOBJNAMECBACKDIR A_SCX2FILESUNIQUEIDALLFORPARENT CFORMSETNAME LHADERROR ADDPROCS1 WRITEFONTSUBPROJCALL COLDOUTFILEGOPJXCOUTFILE A_SCX3FILES INSERTSCXADDPARM ADDGENPROCS UPDMETHODSPOSTFORM CLOSEFILES IWHICHPLATCOMPLETE OCONVFORMENDLOGCNEWSCX}%CCCS2X09 CCS2X%CCCS2T0v CCS2TUTHIS A_SCX2FILES64  TT %C 0$%C  %C  G&(Migrating file...1CMigrating screen CC @%C  k/CC Unable to migrate file. KC!Screen file is an unknown format. It was not converted.xT a TB-.%CC SCX0CC SCT0 )T C SCXT C  PACUnable to migrate file. It was not converted.xT a TB-4CTransporting screen CC @C T CT-,  -  T  TU CFILENAMEOTHIS CNEWSCXNAMETHISREADABLEISDBFGOTHERMSETTITLE PARTIALFNAME CCURRENTFILEMIGDB4WRITELOG LHADERROR A_SCX2FILESJUPDATE LOLDSCXSHOWGASHOWME GTRANSPORT5    (T C  h1 CC  N  M M M MMMMMMMMMMMMMMMMMT CT CGr COMMENTVERSION = 3.00% !U CSCXNAMETMPALIASJTHISSCXCOUNT A_SCX3FILES A_SCX3ALIASPLATFORMUNIQUEID TIMESTAMPCLASSCLASSLOC BASECLASSOBJNAMEPARENT PROPERTIES PROTECTEDMETHODSOBJCODEOLEOLE2 RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8USER CHEADERID LMULTIREADS 4  QC >CTransporting screen CCC  @T CUDFPvG^ T CMESSAGEvK C   -  C   SET UDFP TO &oldudfp G&(,T CC   TC %CC  %%C.OC/PLATFORM - %C4BaQC TaB-USCXTYPEOLDUDFPCOLDMESSTHIS A_SCX2ALIASJGOTHERMSETTITLE PARTIALFNAME A_SCX2FILES GTRANSPORTGASHOWME LTRANSDLOGOPENFILEC25ALIASPLATFORM LHADERRORV 5     T -TC setupcode%C V>9*- [CONVERTER] Parameter statement generated by ConverterC 6*- [CONVERTER] Pass these values along to the new formC  PARAMETERS C C T C,qTC C LOCAL _aParm, _cparmstr, _nctrC C DIMENSION _aParm[CCZA]C C T  ( %  #TC\U*TCC, \FT  _aParm[CC ZA] = [C]C C !T C, T C C _cparmstr = []C C C C IF PARAMETERS() > 0C C C _cparmstr = [WITH ]C C C !_cparmstr = _cparmstr + _aParm[1]C C C FOR m._nctr = 2 TO PARAMETERS()C C C C -_cparmstr = _cparmstr + [,] + _aParm[m._nctr]C C C NEXTC C ENDIFC C C C >%C T C ( J CC%CFTC#CC0CCC  (C*TCC()*TCC[]  TT  (CT CC $%C 9C =_ ET CC&& C C&& = 6;T CC; C C; = 6+C %, 5"T C C, ="T C C, \]T  T %CC  T  T CC @ C2T *- [CONVERTER] Declare arraysC  (C/% C C  ;T  EXTERNAL ARRAY C C C > C C T  (O%  T C % i>+*- [CONVERTER] _rval will hold return valueC  LOCAL _rvalC C C C % C  GT 4*- [CONVERTER] Declare variables for record pointersC (C\ T CC!,T  PUBLIC  C C > C C %C b T EXTERNAL PROC C C C C C C"C 6 DO FORM "C " NAME C] LINKED C&  _cparmstrC#$  NOREAD6C; TO m._rvalC C RETURN m._rvalC C  C C 6%"C >IF _macC C C EXTERNAL PROC C _MAC.C C C C C C  DO FORM "C _MAC.C " NAME C] LINKED C&  _cparmstrC#$  NOREAD6C; TO m._rvalC C RETURN m._rvalC C  C C 6ELSEC C C  ENDIFC C ^ > T EXTERNAL PROC C C C C C C"C 6 DO FORM "C " NAME C] LINKED C#$  NOREAD6C; TO m._rvalC C RETURN m._rvalC C  C C 6%"p>IF _macC C C EXTERNAL PROC C _MAC.C C C C C C  DO FORM "C _MAC.C " NAME C] LINKED C#$  NOREAD6C; TO m._rvalC C RETURN m._rvalC C  C C 6ELSEC C C  ENDIFC C  > % C 2%% K!U&JCSCXNAME NPARMCOUNT CPARMCONTK CPARMCODECPARMANPOSATEMPCTMPTEXTCITEMNARRYLENCPUBLISTCDOFORMOBJTYPETHISCPARMSGETPARAM_FOX3SPRSPRMEMOA_DIMESA_DIMES2GETARRAY STRIPPARENCARRAYSCNEWSCXSCXCOUNT A_SCX3FILES LHASRETURNLHASDATANAVOBJ A_PJXSETSA_TABLESCCURSVARMAKEVARIPLATFORMCOUNTNOREADPLAINEXPR NOREADEXPR LMULTIREADS"  T CW+(C 6FC"%    #2> CC ZA C  6-form+C+ sT COH!~$+formC T CO # > CC  ZA#CCN F %C+ oH%">~ZFONTINFO8T CCCSCC]=.SCXI ( F Q )>C]~A ^ QFCT CC&Q  C SCT= ( '=C SCT(C SCT Q ">FONTINFO~Z>C]~ F USAVEAREATEMPFILECTEMPJTHIS LMULTIREADSSCXCOUNT A_SCX3ALIAS NDNORECNO NDNOCOUNT RESERVED2METHODSLHASIDX_FOX3SPRLOADCLASS NFORMREC1 NFORMREC2 LHASINVISALLUNIQUEIDFOR A_SCX3FILESm5%C_FOX3SPR? F#)F%C #TCh T+C 0 c (T ChCCdZRT  % cTChh>*- [CONVERTER] C C *- [CONVERTER] Header File for C C C (  F> C y> .*- [CONVERTER] New INCLUDE file, with #DEFINEsC  #INCLUDE CC C C C C  F% %C >> *----- Miscellaneous codeC C  %C_FOX3PJX  ( ( F> +%  C_FOX3PJX 3>  Q(C%CC QC  (C%CC QC %%%MAC  >T CCCCC_MAC.SCXC( -CCSCT(C SCTf%%CC0CCCSCTb%  %%MAC )C(CCS2X2CCSCT(CCS2T (=C(CCS2X1=CCSCT(CCS2Tp*%MAC  lCCCSCT%%MAC r?T CCCCC_MAC.SCX%C 0 =C( %CC SCT0B C SCT,=CCSCT(C SCT=C(C1=CCSCT(CCSCT% ^%%MAC &%C 0"  Z%CC0VCUICHFILEICTRCTMPFILETHIS NEW30ALIAS_FOX3SPRDEFINES CSTUBFILE CCURRENTFILE RESERVED8SPRMEMOLDEVMODECODE CCODEFILEUSERPROJCALL_FOX3PJX A_SCX2ALIAS A_SCX3ALIAS LUSERCALLPLATFORMIPLATFORMCOUNT A_SCX3FILES LHADERRORLBACKUP ERASEBACKUP A_SCX2FILES IWHICHPLAT LNOCOMPILE% 1%CC0`CCCSCT% |(Cxr%CC0CCCS2X0 CCCSCT0 CCCS2T0 CCCSCT%CC0 0=CCS2X(C$%CCCSCT0 9=CCS2T(CCSCT#%CCCS2X0.CCS2X#%CCCS2T0tCCS2TTUITHIS LUSERCALL A_SCX3FILESLBACKUP A_SCX2FILES OCONVFORM 5 TCN~C1CCO dSetting 3.0 defaults... T- T%CC @formcheckboxcombobox commandbuttoneditboxgridheaderlabellistboxpagespinnertextboxq(%CC @ pageframeformset m!CFontBold.T. CFontSize10 {%CC @checkboxcombobox commandbuttoneditboxlabellistboxspinnershapetextbox pageframe"C ColorSource0 A%CC @ commandgroup optiongroupgrid pageframeT  (C #TC C.name = T CC.=%C @ pageframe"CFontBold.T. !CFontSize10 %C @gridY#C ColorSource0 #TCC.name = \%CC @`form"C ColorSource5 % > BaU LLUPDATEDCPROPCLINECTEXTIRECCCLASSLOCGOTHERMUPDATE PROPERTIES BASECLASSTHIS ADD40PROPERTYICOBJECT:4 %C 3,TCC C  name = % T-&TCC name =  Ta%/XT C =C C C C 6  = C \ TaU LCPROPERTYLCVALUELCOBJECTIPOSLUSELFCPROP LLUPDATED5T CC, CCC Z, CCC!Z, CCC Z, CCCZ, CCC Z, CCC Z, CCCZ, CCCZC C %C T UFONTSTR A_SCX2FLDTHISFONTSUBN;rCOMMENT~ZTUTHIS NEW30ALIASPLATFORMUNIQUEID PROPERTIESFONTSUBm45     T-T T;T Cformset CCCC @CCZAJ( TTT%2C WindowTypeCC6Q2C WindowTypeCC6#C ReadCycleC#CReadLockC TC%CC  !T CC C ,,C WindowListC C >= (3FC "%C.C/CLASS p.- C % (CReleaseWindowsC%%C   CName % {rC  !"#$%C]&formsetformset %C 2>'(*-----  C C rC  !"#$)%C]&formsetformset % T*CCOJ( T/%C   +  T aT+C% F CName %xr+ !"#$,%C]&formsetformset CC NODEFINE6%C t2>'(*-----  C C )r+ !"#$),%C]&formsetformset CC NODEFINE6T*CCOT- F.U/GETPLATZTMPSTRTMPCNTJ LREADCLAUSETHISCURPLAT IFORMSETCTR CFORMSETNAME GETVARPREFIXGOODNAME CCURRENTFILEA_READS NOBJCOUNTFP3PROP FP3METHODLDEVMODEADDPROP A_PJXSETS GETBORDERSCXCOUNT A_SCX2ALIASPLATFORMOBJTYPEADDREADS LMULTIREADS READ_EXPR READCLAUSE WRITEREADS A_SCX3ALIASUNIQUEID TIMESTAMPCLASS BASECLASSOBJNAME PROPERTIES SAVEDPLAT NTIMESTAMP_FOX3SPRCODEMETHODS NFSETRECNO NEW30ALIAS RESERVED4 PARENTNAMEC25ALIAS2 5 %CNOMOUSEGC ReadNoMousea%CSAVECReadSavea%CTIME#T CCTIME\4C ReadTimeoutCC C \g%COBJECTo%T CCOBJECT\.C ReadObjectCC C \g$%C COLORSCHEME+T ,+CC f COLORSCHEMET  T C !C ColorScheme UTMPSTRTMPCNTTHIS READ_EXPRADDPROPWORDNUM H  %CReadWhenC&C ReadValidC)C ReadActivateC+CReadDeactivateC  l%CReadWhenC&C ReadValidC)C ReadActivateC+CReadDeactivateC2TCUTHIS NOREADEXPR ADDMETHODSA_READSNOREADPLAINEXPRCPROCS45    !5     5   5   5  #!J(    J(  J(   J(   J( JCW( TC setupcode>F> C!%SYS(16Cf(>CSYS(16_SYS(16(>Csys(16_sys(16(>CSys(16_Sys(16T"a +av&T C#temp4a- aa# HXx C q! CC =fDEFI%CC `R;T &T C#temp4aa aa#% !T C T  +a#T   C C %C R;i!T C  T  >$ $>$# C C e CC =fIFCC =fELSE CC =fELIF CC =fENDIF $>$# C C T  .6 CC =fINSECC =fSECT T  . CC =fITSE!%T%CC#ITSEtemp4a-#f CC =fREADQT& ! CC =fWCLAUSET'  CC =fWNAME&T(CC#WNAMEtemp4a-#f7 CC =fNOREADCPLAIN  6T)-T)-T*a CC =fNOREADxT)-T+a;T C C C C C A\6H%CC A=&*CC >C \ 6& MC-7Cannot process macro expression in generator directive.,TT :*- [CONVERTER] Cannot process macro in generator directiveC *T * T"$TC#temp4aa -a#TC/>C"C6 [TC /> C "C6 [#T Ctemp1SECT1.T "% T Ctemp1PARM.%  T  +ac TC %C R;B !_ T  T " #T Ctemp1SECT2.%  T ""T  CC > H  *   C ; T -    ~ T C \    T C \2 T C \T C \ F "T CPROCCODEPROC.% G T C/ T "CC/ >T C/ \%C   %SYS(16C f8 &T C SYS(16_SYS(16&T C sys(16_sys(16&T C Sys(16_Sys(16T"a> F> C!T 0CRETU  ( 0 +T CCRETUtemp4-- aa#f%CC   B% C )CC =fRCC =fRN  ? "T C C \.%CC  CC =&&  T1a! F 3T2CC2  3+%C  4  HKT2 PARAMETERS C C C C C23T2CC2  3,%* + CC2 THIS.a_reads[3] = IIF(THIS.lDevMode,"","*- [CONVERTER] Restore environment" + CHR(13) + [IF TYPE("rborder") == 'C'] + CHR(13)+CHR(10) + CHR(9) + [SET READBORDER &rborder] + CHR(13)+CHR(10) + [ENDIF] + CHR(13)+CHR(10) + CHR(13)+CHR(10) + [IF TYPE("talkstat") == 'C'] + CHR(13)+CHR(10) + CHR(9) + [IF m.talkstat = "ON"] + CHR(13)+CHR(10) + CHR(9) + CHR(9) + [SET TALK ON] + CHR(13)+CHR(10) + CHR(9) + [ENDIF] + CHR(13)+CHR(10) + [ENDIF] + CHR(13)+CHR(10) + CHR(13)+CHR(10) + [IF TYPE("compstat") == 'C'] + CHR(13)+CHR(10) + CHR(9) + [IF m.compstat = "ON"] + CHR(13)+CHR(10) + CHR(9) + CHR(9) + [SET COMPATIBLE ON] + CHR(13)+CHR(10) + CHR(9) + [ENDIF] + CHR(13)+CHR(10) + [ENDIF] + CHR(13)+CHR(10) + CHR(13)+CHR(10) ) 3T2CC2  32T2CC256 32T2CC278 32T2CC29: 32T2CC2;< 32T2CC2=> 3U?SCRN_NUMPART1PART2 PART2LINEPART2CHRSECT1SECT2 SECT1LINE SECT2LINEPARMLINESECT1CHRSECT2CHR SECT2STARTGENDIR GENDIRCOUNTSAVEAREAJCTEMPTXTNGENDIRCDEFINECTMPNCTR CREPLACESTR CGENACTION CPARMLINENLINETHISCPARMSGETPARAM_FOX3SPRTEMP1 SETUPCODETEMP4 CLEANWHITE LHASSYS16MEMOFINDDEFINES ITSE_EXPR READ_EXPR WCLAUSE_EXPR CWNAMEEXPR A_PJXSETSNOREADPLAINEXPR NOREADEXPRWRITELOG CCURRENTFILE GETFIRSTLINEPROCCODENMAXRETU LHASRETURNA_READS MERGEMETHODS LMULTIREADSWHENWHENTYPEVALID VALIDTYPESHOWSHOWTYPEACTIVATE ACTIVTYPE DEACTIVATE DEACTTYPE4 5 T CW%CC L B % T RETURN _> F>C Ctemp1 +a@%T C#INSEtemp4a---a % C  !)%C m.insfilebC C 0 !%CCC C 0!T CC C  H C m.insfilebC5>(*- Could not find #INSERT directive file C  C 0 UB>(*- Could not find #INSERT directive file -  2 >C Ctemp2 h> *- Start of #INSERT directive - C C *- End of #INSERT directiveC C#INSEtemp1aC#INSEtemp4aT  F 1BCC   C C  6U MERGECODEFP30FLDCODETYPESNUMINSFILESAVEAREA_FOX3SPRTEMP1TEMP4 CLEANWHITETHIS GETDEFINEFINDARRYMEMOFIND CCURRENTFILETEMP2 MEMOSTUFF4IF ('#' $ &cMemoFld)J(  +a"T C#aa aa% !Cm.gendir = ALLT(STRTRAN(MLINE(&cMemoFld,m.ngendir),CHR(9),' ')) T  H CC =f#DEFIT  +a#T  C C  %C R;s!2m.gendir = MLINE(&cMemoFld,m.ngendir + m.nCtr) T  > 2T  . T" TC#aa -a-cTmp = MLINE(&cMemoFld,m.nLine - 1) QREPLACE (cMemoFld) WITH STUFF(&cMemoFld,_MLINE + IIF(m.nLine <= 1,0,1),0,'*') U CMEMOFLD GENDIRCOUNTNGENDIRCDEFINEGENDIRNCTRCTMPNLINEMEMOFIND_FOX3SPRDEFINESA45T T   T (XFC  "%C.C/CLASS .% ALL)C    ( =BC   #C DOSWINDOWSMACUNIX ( T    F ("%C.C/CLASS .% ALL T !FoCC  & C DOSWINDOWSMACUNIX%CTC (C!%CCC CTCCC %C!C C TC B U CPLATONLYTMPARRTMP2ARRIJTMPCNTTOTRECSTHISSCXCOUNT A_SCX2ALIASOBJTYPEPLATFORMC25ALIASDISTINCT G_PLATFORMSA_PLAT ISMULTIPLAT#5    T CC+CO6 -C "T CPROCCODEPROC%  # B3T "CC >C 6"T C C C \%T  C C U SAVEREC PART2LINEPART2PART2CHROBJTYPEPLATFORMTHISA_PLAT GETFIRSTLINEPROCCODECPROCS5    T CC+CO6%C >C C ?*- [CONVERTER] Begin CLEANUP and other procedures from 2.x FormC C C =*- [CONVERTER] End CLEANUP and other procedures from 2.x FormC %C >C C C C 8*- [CONVERTER] Begin VALID/WHEN procedures from 2.x FormC 6*- [CONVERTER] End VALID/WHEN procedures from 2.x FormC %  >C C C C @*- [CONVERTER] SYS(16) replacement to accommodate relocated codeC PROCEDURE _SysC C C PARAMETERS nCode, nDepthC C C IF PARAMETERS() = 1C C C C sRETURN IIF(LEFT(SYS(16),9) == "PROCEDURE" AND OCCURS(" ",SYS(16)) >= 2,SUBS(SYS(16),AT(" ",SYS(16),2) + 1),SYS(16))C C C ELSEC C C C RETURN SYS(16,nDepth)C C C ENDIFC C )*- [CONVERTER] End of SYS(16) replacementC  # U SAVEREC PART2LINEPART2PART2CHRTHISCPROCS_FOX3SPRSPRMEMOTEMP3 LHASSYS16, 4 5~C %-%CDOSWINDOWSMACUNIX j.% .L% DNOC  DNOC . ^(% C .TC %CoRecbO;.   C d T% B%C T C C)CC  <UPLATNUMCRECTYPEOREC A_SCX2FLDNOLDSIZEPLATFORMTHISA_PLATOBJTYPE ADDFONTSUB ADDSCXOBJMAPITADDRECGOTHERMUPDATE NTMPCOUNT NRECCOUNT LHADERROR CLOSEFILESA_DIMES 4 5J(  T HNB T formT  T dataenvironmentT   T a> L*- [CONVERTER] Open old-style IDX index file specified in screen environmentC SELECT CC `C  SET INDEX TO CC `C C  T relationT  T labelT  <T lineT  uT shapeT   T listboxT (  C;C  T  commandgroupT   ET  commandgroupT   T  optiongroupT  T checkboxT   T textboxT   LT textboxT   T editboxT  T comboboxT 4  BITMAPCf  &T imageT  rT oleboundcontrolT( C;C  T  commandgroupT   T  commandgroupT ! BT spinnerT "%C ` BBC  NU#NOBJTYPECTRLTYPETMPOBJOBJCLASSOFORM OBJCLASSMTHIS OCONVFORM FORMCLASS DATANAVCLASSLHASIDX_FOX3SPRLOAD A_SCX2FLDDATANAVRELATIONCLASS LABELCLASS LINECLASS SHAPECLASS LISTCLASSBTNCLASS BTNGCLASS RADIOCLASS CBOXCLASSOBJCODESAYCLASSGETCLASS EDITCLASS POPUPCLASSSTYLENAME PICTCLASSOLECLASSINVCLASS INVGCLASS SPINCLASS  TFC!% CN  #%  CLoadCCC %CC C C C 6C #*- [CONVERTER] Remember environmentC 5PRIVATE m.compstat, m.currarea, m.rborder, m.talkstatC C IF SET("TALK") = "ON"C C C  SET TALK OFFC C C m.talkstat = "ON"C C ELSEC C C m.talkstat = "OFF"C C ENDIFC C m.compstat = SET("COMPATIBLE")C C SET COMPATIBLE FOXPLUSC C C C m.rborder = SET("READBORDER")C C SET READBORDER ONC C C C m.currarea = SELECT()C C C C 6C C i7*- [CONVERTER] Open tables so that fields are availableC THIS.DataEnvironment.OpenTablesCC C C   C C 6C $*- [CONVERTER] Reset record pointersC &LOCAL aTbl, iLen, i, iRec, cVar, iPrevC iPrev = SELECT()C DIMENSION aTbl[1,2]C iLen = AUSED(aTbl)C FOR i = 1 TO iLenC C 7cVar = '_iconv' + PROPER(aTbl[i,1]) + 'GoToPlaceHolder'C C IF TYPE(cVar) # 'N'C C C  iRec = -2C C ELSEC C C iRec = EVAL(cVar)C C ENDIFC C IF USED(aTbl[i,1])C C C SELECT (aTbl[i,1])C C C DO CASEC C C C !CASE BETWEEN(iRec, 1, RECCOUNT())C C C C C  GOTO iRecC C C C  CASE iRec = 0C C C C C GO TOPC C C C C SKIP IIF(!BOF(),-1,0)C C C C CASE iRec = -1C C C C C  GO BOTTOMC C C C C SKIP IIF(!EOF(),1,0)C C C C  OTHERWISEC C C C C GO TOPC C C ENDCASEC C ENDIFC NEXTC  IF iPrev > 0C C IF USED(iPrev)C C C SELECT (iPrev)C C ENDIFC ENDIFC (RELEASE aTbl, iLen, i, iRec, cVar, iPrevC C C 6 T% C  :T'*- [CONVERTER] Remember record pointersC (C TCCT IF USED("C")C C SELECT CC C ) = IIF(BOF(), 0, IIF(EOF(), -1, RECNO()))C ENDIFC C 'TC C#CUnloadCsTCCC CC C %*- 2.6 SAYs that need to be refreshedC C 6(CReadShowC%  2>*----- C C  >UCGOTOCCURSVARKTHIS A_SCX3ALIAS NFSETRECNONOREADPLAINEXPR ADDMETHODSA_READSLDEVMODELHASDATANAVOBJ A_PJXSETSCSETSKIP CDEFINEWINA_TABLESMAKEVAR CREADSHOW CLEANPROC_FOX3SPRCODE CFORMSETNAME FP3METHODMETHODS44*B_iconvCC`GoToPlaceHolderUCNAME4 5  %# > B J( JCW( > >CF +a(T CC#temp4a- aa f H& C ! C =NAME2&T  . T"$TC#temp4aa -a TC.>C"C6*[TC.>C"C6*[ F  BU CSNIPPET GENDIRCOUNTSAVEAREANLINECTMP_FOX3SPRTEMP1TEMP4 CLEANWHITEGENDIRMEMOFINDf4T T  T T C T % 1T   C C  C  T C T C %CCT -0TCCCCC]=.SCXT CT C  T CT  T CT C TCC *TC VCX VCTSCT6*TC VCX V3XS2X6*TC VCX V3TS2T6"T CC /%CC 0CCC f  X(C (CC  %CCC  00CC  (CC  T -% #2CConverting screen CC @CTaC CC ] %CC   T %  B-% C  LCC CFile ` is read-only. It was not converted. B-'T !CC  "%CC !T %  B-T #C !"%C.C/CLASS Ba_QC !\CCC C!Screen file is an unknown format.`It was not converted. T B-U$APARMSLBACKUP LPROJCALLLFORCETRANSPORTDLOG LNOCOMPILECEXT1CEXT2 CBACKEXT1 CBACKEXT2THISPROJCALLLSET30DEFAULTSIPLATFORMCOUNTCBACKDIRGOPJX A_SCX2FILES A_S2FILES A_SCX3FILES A_S3FILESCNEWSCX CCURRENTFILE LUSERCALLGOTHERMSETTITLE PARTIALFNAMEUPDATEVISIBLEWRITELOGBEGINLOG KNOWNFILE OCONVFORM ERASEBACKUP PREADONLY A_SCX2ALIASOPENFILEC25ALIAS D>CColorSource = 3ColorSource = 5C@formD>CColorSource = 4ColorSource = 0C@lineD>CColorSource = 4ColorSource = 3C@line% C TaBU ALL PROPERTIESFOR BASECLASSTHISLSET30DEFAULTS SET30DEFAULTS CLOSEFILES LCONVERTED5#TCC *TC VCX VCTSCT6*TC VCX V3XS2X6*TC VCX V3TS2T6(C %CC  QC  (C d%CC `QC %  % %CC 0C CC  %  T a%%  MAC Y?T CCC CC _MAC.SCXuTC &TCC C .ERR%C 0 %C 0  % C 0 qCC ]UThe file could not be compiled. Check the .ERR file for details and compile manually. sC The file C ]M could not be compiled. Check the .ERR file for details and compile manually.xT -T -UICHFILEICTRCTMPFILECEXT1CEXT2 CBACKEXT1 CBACKEXT2CERRFILETHIS A_SCX2FILES A_SCX2ALIAS A_SCX3ALIAS LUSERCALL LHADERROR A_SCX3FILES LNOCOMPILE LLOCALERRIPLATFORMCOUNTPLATFORM LHADLOCERRWRITELOGCNEWSCX| 4 5    T  T  T T  T T T C T C T aT a% T T T T  T  %C LBXT LBXT LBTT L2XT L2TT FRXT FRTT F2XT F2T T C%CCT -5TCCCFCC]R.FRXT CT CT CT  %C LBX.T LBXT LBTT L2XT L2T~T FRXT FRTT F2XT F2T%   (C  %CC  0(C  (C  T -2CConverting report CC @CT aC !CC ] "T #C $T %C &% C ' ?LCC CFile ` is read-only. It was not converted. !T (a TB-%C 0%C )%C  * ET CC ]CCC fLBL|LBX LBXFRX6G&(Migrating file...1CMigrating report CC @%C + 0CC Unable to migrate file. !TC*Report or label file is an unknown format. It was not converted.xT (a TB-4CTransporting report CC @C ,T ,C-T--*.  --  T- ,T   TT /C  0%C / 1B- H' % C.JC/PLATFORM  -# # %C4 %C 2 T (aB }# #( 43}# #( 53% 5 4 %C 2  T (aB$ C.$C/OBJTYPE ` %C 2 \ T (aB! C.KCK/USER z -# # %C4 a C 2T 6-%C / Q /%C 7 Q 7% ]  (C  (C  (C  A -# #8 T43-# #8 T53% 5 4 %C 2  T (aB#) %9= -# #8 T 6C4 % 6 v T :aT B$ C.C/OBJTYPE  %C 2  T (aB2' Q /T (a6C*Report or label file is an unknown format.xB%C_FOX3SPRJ Q;h_FOX3SPR<M F /U=APARMSLBACKUP LPROJCALLLFORCETRANSPORTDLOG LNOCOMPILE CNEWFRXNAMEOTHISCNEWEXT1CNEWEXT2COLDEXT1COLDEXT2THIS OCONVFORMPROJCALL LTRANSDLOGLLOGCLOGFILE LAUTOOPEN LAUTOCLOSECBACKDIRGOPJX CFRX2FILESF2FILES CFRX3FILESF3FILESCNEWFRX CCURRENTFILE LUSERCALLGOTHERMSETTITLE PARTIALFNAMEUPDATEVISIBLEWRITELOGBEGINLOGPLATFORM GETPLATFORM NTIMESTAMPTSTAMP PREADONLY LHADERRORREADABLEISDBFMIGDB4 LOLDFRXSHOWGASHOWME GTRANSPORTC25ALIASOPENFILE ERASEBACKUP CONV20FRX TIMESTAMP IMAXTHISTIME IMAXOTHERTIMELNEEDSDE CFRX3ALIASOBJTYPEENVIRON LCONVERTED_FOX3SPRLOADs52CConverting report CC @C T  C! F #)%   T C( T -~+C T ^( TCO HPC )TC dataenvironmentNT "TC relationNT CG>SELECT C`C  SET INDEX TO C`C C T a%CoRecbO  %   B<"C   9! #%C ! > !>C PROCEDURE DestroyC -*- [CONVERTER] Reset tables for compatibilityC THIS.OpenTablesC  THIS.InitC %C "CN # "(>PROCEDURE InitC % #  $4T CC %FCC]=.FRXI &(  F Q %5C %CC %LBX LBTFRT6= ( %F=C FRT(C %CC %LBX LBTFRT6 Q %<>(a* +CZ ,C - B .U/ORECOFORM A_SCX2FLD NRECCOUNTNCURRECTEMPFILEGOTHERMSETTITLE PARTIALFNAMETHIS CCURRENTFILEUPDATEPREFORM CREATEFRX NEW30ALIAS CFRX3ALIASENVIRONLNEEDSDE OCONVFORMOBJTYPE NTMPCOUNT DATANAVCLASS FP3OBJTYPEDATANAVRELATIONCLASS_FOX3SPRLOADTAGNAMELHASIDXMAPITADDREC LHADERROR CLOSEFILESCSETSKIP NDNORECNO LNOCOMPILE COMPILEFRX CFRX3FILESPLATFORMALLFLOATFORSTRETCHPOSTFORMCOMPLETEENDLOG CFRX2FILES5    %CCfLBXT LBXT LBTT L2XT L2TT FRXT FRTT F2XT F2T%C_FOX3SPRQ%CQ%C >Q %- C 0 g % % %C 0 C % %CC 0C %CC 0BC =(C '=C (C C = ((=C FRT(C UICNEWEXT1CNEWEXT2COLDEXT1COLDEXT2THIS CFRX2FILES_FOX3SPRC25ALIAS CFRX3ALIAS CFRX3FILES LUSERCALL LHADERRORLBACKUP F(F Q%CuserbUi1M%CCBAK0CBAK%CCTBK0CTBKTCUTHISC25ALIAS CFRX3FILESUSER CFRX3ALIAS 4  Q4CTransporting report CC@T CUDFPvG^ T CMESSAGEv3   -   SET UDFP TO &oldudfp G&(TC  %C 0%C.JC.K C/PLATFORM o- %C4kBaQTaB-UFRXTYPEOLDUDFPCOLDMESSTHISC25ALIASGOTHERMSETTITLE PARTIALFNAME CCURRENTFILE GTRANSPORT CFRX2FILESGASHOWME LTRANSDLOGOPENFILEPLATFORM LHADERRORJ)>C]~A ^ >UALLUNIQUEIDFOR TIMESTAMPTHIS NTIMESTAMPPLATFORMC% .1%C09%CCCCLBX LBTFRT605CCCLBX LBTFRT6% *Q%C0CCF2X0 CCFRT0 CCF2T0 CFRT%C0 m =CF2X(%CCFRT0 )=CF2T(CFRT%CCF2X0CF2X%CCF2T0&CF2TTUITHIS LUSERCALL CFRX3FILESLBACKUP CFRX2FILES OCONVFORMk%CCF2X00 CF2X%CCF2T0d CF2TUTHIS CFRX2FILES 4T T T TCTCT T U PARM1PARM2THISFP3CLASSFP3BASEFORMREFFP25OT A_SCX2FLDFP25OCFP3PROP FP3METHODS        U THISPREMAPADDBASICADDFONTADDPOSADDCOLORADDMAINPOSTMAP WRITENAMEUUU4 BUBMPFPATH45%CC 9B!T C C >\A%C CC  C  T aT C T CC \T C =T  +aTC   HE C Z!3 C fNOMODIFY FONT STYLE COLOR SIZE T C C  \%T CC C  =V!T  %C T  TC H?  C  TCC TC #  C@  T   T & C@  T  >T  C@ iT  CC \T 2TC =TCC \% 4%C C  CCA=+ 7T+)%C CCA=+ |T+UCPICTSTRSPCLOCTMPSTRTMPCNTTMPWORDTMPLOC TMPPRESTRTHISFORMREF ITSE_EXPR A_SCX2FLDHASITSEWORDNUMPICWORD3PICWORD1 ADDQUOTESPICWORD2%r     %C 2>*----- C C r     UTHISFORMREFLDEVMODE NEW30ALIASPLATFORMUNIQUEID TIMESTAMPCLASS BASECLASSOBJNAMEPARENT PROPERTIESUSER RESERVED2 FP3SAVEPLATFP3IDFP3TIMEFP3CLASSFP3BASEFP3NAME FP3PARENTFP3PROP FP3COMMENT FP3RESERVED2 FP3METHOD_FOX3SPRCODEMETHODSzTCTTCTT ~AT aU THISFP3PLAT A_SCX2FLDFP3TIMEFORMREF NTIMESTAMP FP3COMMENT FP3PARENT PARENTNAMEFP3ID LHASINVIS4T UCADDNAMETHISFP3NAMECNameUTHISADDPROPFP3NAME4 4 $%CCMACWINDOWS 1BTCCTC!TCC %TC$%TC$%T C$T  T  T  $CFontName $CFontSize .CFontBoldCB %CI!C FontItalica %CU$C FontUnderlinea  %3-%COj"C FontOutlinea %CS!C FontShadowa %CC#C FontCondensea %CE)!C FontExtenda UNBTN A_SCX2FLDTHISFP3FONTFP3FSIZE FP3FSTYLEGETSTYLEFP3FONT1FP3FONT5FP3FONT6 NDEFFONT1FORMREF NDEFFONT5 NDEFFONT6ADDPROP)CTopC*CLeftC #CWidthC ,CHeightC  U THISADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5FP3FUDGE NDEFFONT6FP3FONT6FP3FONT1FP3FONT5 4 'C ColorSource %CLC ForeColorCCCZ,CCCZ,CCCZ %CLC BackColorCCCZ,CCCZ,CCCZ LC FillColorCCCZ,CCCZ,CCCZ TCDisabledBackColorCCCZ,CCCZ,CCCZ UBTNTHISADDPROP ICOLORSOURCE A_SCX2FLD4 TNT BIUOSCE% (% #T  C \T   B U IFNTSTYLE CFONTSTYLEI CSTYLECODES45TCC%C  T C ,()[]_% TCC =-%\ . : T CC BT C->CC->\CC.\60T  T+BC CC CCZUNEWOBJCNAME A_SCX2FLD STRIPQUOTETHISFORMREF NOBJCOUNT GETVARPREFIX H w C  S#CFormatC2wCFormat H C  &C InputMaskC2C InputMaskUTHISPICWORD1HASITSEADDPROP ADDQUOTESPICWORD24'%CMAC 3 T&C SpecialEffect &C SpecialEffect UBTN A_SCX2FLDTHISPICWORD1ADDPROP}4 % F#C BackStyle v(C BackStyleC ULCONVERTNMODENFILLPATBTNTHISADDPROP4 H C bLJ BIIF(  ,'T','F') CC bNF!B ALLTRIM(STR( )) C bDBDTOS( )2 B UPSTRING#T~BUFP25OBJADDBASICTHISFP3ID'CCCaC"C$% C/ ,CWhenCC0 C/$% C1 -CValidCC2 C1$% C5 (%CMessageC6C5$% C3 z*C ErrorMessageC4C3% #T SYS(16C fCC  C ReleaseErase- &C ControlSourceCC UTHISADDNAME GETNEWNAMEFP3CLASSADDMODE A_SCX2FLDFORMREFNOREADPLAINEXPR ADDMETHODS CLEANPROC LHASSYS16 FP3METHOD GETPICPARTADDPROPADDCTRLADDFX"CEnabledCH UTHISADDPROP A_SCX2FLD 45 5    T C;C T CBT CH)CTopC"CLeftC % CCWidthC CN CN,CHeightC T T CN<#CWidthC TCHeightC CN CN"T CNT % OptionjC-C-C BorderStyle!C ButtonCount T C "T C T T CName( | T  CC Z H{~ T  $T CC;=  $T CC;\2~%T C; T C; $T C   \C C C  H %CEnabledCH CStyle  %CEnabledCH *CPictureC ! "CCaption"" % CStyle 2%\\ T C \\CEnabled- K%CEnabledCH %\! T C \!CDefaulta %\? T C \?CCancela *CCaptionC " % Option"CaC"C %#CValue (CaCC"C "CHeight !CWidth % h8CLeft    CTop  CLeft 7CTop    %CT $C TerminateReada 5 $C TerminateRead- #C ReleaseErase-  CName  U$BTNNAMEINVISBTNOPTBTNICAPNAMEBTNVSPCHSPC LHASPICTSTOTBTNSUNITWIDUNITHGTST_LEFTST_TOPLISHORIZ A_SCX2FLDTHISPICWORD1ADDPROP NDEFFONT1 NDEFFONT5 NDEFFONT6FP3FONT6FP3FONT1FP3FONT5ADDMODEFP3NAMEPICWORD2POS1POS2ADDFONTADDCOLORADDFXFULLBMP ADDQUOTESIVALUE%CBZ$CPictureCCCaption""$CCaptionC%CTC TerminateReadaC TerminateRead-UTHISPICWORD1ADDPROPFULLBMPPICWORD2 ADDQUOTES5T CT CCL`%C C  WB%C E HyA DT , C M G B L T - NT  FAT ^T  CValue UCTEMPSTR CFILLCHARCINITVAL A_SCX2FLDFILLCHARTHISADDPROP'C RowSourceCC H4- C 5CRangeLowC,C+ FirstElement:C RangeHighC.C-NumberOfElements C RowSourceTypeCValue C = C RowSourceType CValue C  C RowSourceTypeCValue" " C  C RowSourceTypeCValue" " C - C RowSourceTypeCValue" "%CTiC TerminateReadaC TerminateRead-CEnabledCH UTHISADDPROP ADDQUOTES A_SCX2FLD ADDMETHODSPICWORD1T?)CTopC*CLeftC #CWidthC 0CHeightC  U THISFP3FUDGEADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6FP3FONT6FP3FONT1FP3FONT5R 4 $C ColorSource %CJC ItemForeColorCCCZ,CCCZ,CCCZ%CKJC ItemBackColorCCCZ,CCCZ,CCCZRCDisabledItemBackColorCCCZ,CCCZ,CCCZUBTNTHISADDPROP A_SCX2FLD, CEnabledCH UTHISADDBTNADDPROP A_SCX2FLD CEnabledCH %CB[CStyle{CStyleCValueCMUTHISADDBTNADDPROP A_SCX2FLDPICWORD1UUCCommandUTHISADDGROUP3 4 'C ColorSource UBTNTHISADDPROP ICOLORSOURCEUU3CCommandaCValueUTHISADDGROUPADDPROPD CEnabledCH CStyleUTHISADDBTNADDPROP A_SCX2FLD H CBQC Alignment CJC Alignment CIC Alignment CCCbNC Alignment%C  UFP25CTRLADDMAINTHISPICWORD1ADDPROP A_SCX2FLDPICWORD3  CEnabledCH CMargin&CRangeLowC,C+'C RangeHighC.C-2C BorderStyleC6%C U THIS ADDFORMATADDVALUEADDPROP A_SCX2FLD ADDMETHODSFORMREF GETBORDERPICWORD3-CTopC&CLeftC 'CWidthC 0CHeightC U THISADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6FP3FONT6FP3FONT1FP3FONT5 H CBQC Alignment CJC Alignment CIC Alignment CCCbNC Alignment%C  UFP25CTRLADDMAINTHISPICWORD1ADDPROP A_SCX2FLDPICWORD30  CMarginUTHIS ADDFORMATADDVALUEADDPROP-CTopC&CLeftC 'CWidthC 0CHeightC U THISADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6FP3FONT6FP3FONT1FP3FONT5%CI =C ScrollBarsCEnabledCH  C AllowTabsCK6%C NOMOC NOMO ,TC NOMO && NOMOCReadOnlyaUFP25TEXTADDCTRL A_SCX2FLDTHISADDPROP FP3METHODPICWORD3BUxCStyleCReadOnlyaCTabStop-C BorderStyleUFP25TEXTADDCTRLTHISADDPROP4T CCCC%C  T C CC >F=&T CCCC T CC TBC CCZU NEWOBJCNAME STRIPQUOTE A_SCX2FLDTHIS GETVARPREFIXGOODNAMEFORMREF NOBJCOUNTH 4 C ColorSource%C=NCDisabledForeColorCCCZ,CCCZ,CCCZFC ForeColorCCCZ,CCCZ,CCCZ%CAFC BackColorCCCZ,CCCZ,CCCZUBTNTHISADDPROP A_SCX2FLD   H0 CC CCC="[' _T C& CCCbCMUN $T (CC)2T CCValue %CG%TMT  THISFORMSET.C& ..C C. \7T  THISFORMSET.C C. \JT  .  .Value =  C C U CEXPRCPARENT A_SCX2FLDTHISCONV2STRADDPROPFORMREFLINDIRECTWINNAMECINDIRECTWINNAME FP3PARENT CREADSHOWFP3NAMET CCL!T C C >\ HR C rT  CCC gZ T C g T 2T  CValue T UCTEMPVALCINITVALCTEMP2 A_SCX2FLDTHISFP25OCADDPROPIVALUEUU)COption-aU FP25OPTIONADDMAINTHISADDGROUPiCEnableda%CBbCValueCMTCMUTHISADDPROPPICWORD1 A_SCX2FLDIVALUE|4 %CM"C BackStyle u C U LCONVERTNMODENFILLPATBTN A_SCX2FLDTHISADDPROP FP25OPTIONADDMODECStyleCEnabledCH %#C FirstElementCM&T CC,.;,&C RowSourceC  C RowSourceType5CRangeLowC,C+ FirstElement:C RangeHighC.C-NumberOfElements C RowSourceType'C RowSourceCC U CLISTSOURCETHISADDPROP A_SCX2FLDFP25OCPICWORD2 ADDQUOTES ADDMETHODSADDVALUE\  CEnabledCH CMarginC Alignment%CC &CSpinnerLowValueC%CC 'CSpinnerHighValueC9CRangeLowC,C+KeyboardLowValue;C RangeHighC.C-KeyboardHighValueUTHIS ADDFORMATADDVALUEADDPROP A_SCX2FLD ADDMETHODS)CTopC/CLeftC 333333?'CWidthC 0CHeightC U THISADDPROP A_SCX2FLD NDEFFONT1 NDEFFONT5 NDEFFONT6FP3FONT6FP3FONT1FP3FONT5%CCL %CCCLg8CCLgf,TCCLCCL>C.CLTCCLT1.000C Increment H C T CCC`CValue  C `T CCC`CValue  CC`T 1CValue 2 BU CINITVAL A_SCX2FLDFORCEDECTHISADDPROPTAGTAG2 INITIALVALFP25CTRLADDVALUECCCC %/ HV0 CC CCC="[' CCaptionC" CCCbCMU %CCaptionCC 2CCaptionCT   TCCCC %C>TC=CC=CCaptionCWordWrapaC ColorSourceCaCC" H CB ;C Alignment CJ qC Alignment CI C Alignment%C C ReleaseErase-ULCEXPRTHISADDNAME GETNEWNAMEFP3CLASS GETPICPART A_SCX2FLDFP25OTADDPROPCONV2STRPICWORD2 ADDFORMATADDMODEPICWORD1PICWORD34T CCCC%C  T C CC >F=&T C CC !T C C TBC CCZU NEWOBJCNAME STRIPQUOTE A_SCX2FLDTHIS GETVARPREFIXGOODNAMEFORMREF NOBJCOUNT$TC]UFP25OBJADDBASICTHISFP3ID46%CMAC Cd C pT C SpecialEffect C SpecialEffectUBTN A_SCX2FLDTHISADDPROPD CC %u HN CrT  CT  CT  CT 2T CC FillStyle % KC BackStyleqCaCC"C CaCC"C %C   C CurvatureC 'C BorderWidthCCD H   C! CTC BorderStyle CC BorderStyle CC BorderStyle CC BorderStyle C C BorderStyleC ReleaseErase-U NFILLPATTHISADDNAME GETNEWNAMEFP3CLASSADDFXFP25OT A_SCX2FLDADDPROPADDMODEU/CTopC%CLeftC  Ha %C CWidth2CHeightC CHeight&CWidthC  2CHeightC &CWidthC UTHISADDPROP A_SCX2FLDFORMREF NDEFFONT1 NDEFFONT5 NDEFFONT6FP25OTr 4 $C ColorSource %CHC BorderColorCCCZ,CCCZ,CCCZ%CBFC FillColorCCCZ,CCCZ,CCCZ'C BackColor 255,255,255NCDisabledForeColorCCCZ,CCCZ,CCCZUBTN LCOLORSOURCETHISADDPROP A_SCX2FLD 4 $C ColorSource %CHC BorderColorCCCZ,CCCZ,CCCZ%CBFC BackColorCCCZ,CCCZ,CCCZUBTNTHISADDPROP A_SCX2FLD$TC]UFP25OBJADDBASICTHISFP3ID8CC%C V'CPictureCCC % BITMAPCCf?CPicture(CCCC CC=).CPicture(C)CaCC"CC ReleaseErase-UTHISADDNAME GETNEWNAMEFP3CLASS A_SCX2FLDADDPROPFULLBMPADDMODECStretchCD/CTopC%CLeftC 2CHeightC &CWidthC UTHISADDPROP A_SCX2FLDFORMREF NDEFFONT1 NDEFFONT5 NDEFFONT6U0 4 $C ColorSource UBTNTHISADDPROPCCCaCC"CC ReleaseErase-&C ControlSourceCC UTHISADDNAME GETNEWNAMEFP3CLASSADDMODE A_SCX2FLDADDPROPADDCTRLRCEnabled-CSizable-C AutoActivateUTHISADDPROP4 4CTUPARM1PARM2FP25OBJINITTHIS ICOLORSOURCE$TC]UFP25OBJADDBASICTHISFP3ID 5   %C%%CC^TC  !%CC=(T %CC` TC  TCC`%T  |e%CC{T%T  |a%CC` T%T  |]%WZ_WINT4TCC`%T  |C HF3 C CC\ 4CCaptionCCC"C\ CC "CCaptionC2FCCaption""%CC  )CPictureCCC %CC CIconCC)C BorderStyleCCD %CCDOSUNIX H3 C CC\ :C BottomCaptionCCC"C\ CC $C BottomCaptionCCShadowCE H& C IN DESKTOP+CDesktopa% C IN WINDOWT *+CC fWINDOWT  "T C CWindow % C IN SCREENCWindowa.CSizableC GROW#T C ZOOM.CMDIChildC MDIC MaxButton CZoomBox CMovableCACClosableCB C MinButtonCC5%CA CB CC   C ControlBox-(CHalfHeightCaptionCK'%C COLORSCHEMEuT /+CC f COLORSCHEME.T  "T C !C ColorScheme %HCInitC C  THIS.Name = C C %CC / $CLoadCT%C  ;CActivateSELECT C C UTMPSTRTMPCNTCTMPNAMELZOOMTHISFORMREF CWNAMEEXPR A_SCX2FLDCWINNAME GETNEWNAMEFP3CLASS CFORMNAME CWINNAMESADDNAME ITSE_EXPRADDPROPFULLBMP STRIPQUOTE GETWBORDER WCLAUSE_EXPRWORDNUMLINDIRECTWINNAME ADDMETHODSCINDIRECTWINNAMEA_READS CMAINCURSTUTHISFORMREF PARENTNAME CFORMSETNAMEW%T.#%CCMACWINDOWSTTT  %CT  255,255,255=T CCCZ,CCCZ,CCCZCName % P  CUTHISFORMREF PARENTNAMEFP3NAME A_SCX2FLD NDEFFONT1FP3FONT1 NDEFFONT5FP3FONT5 NDEFFONT6FP3FONT6 CDEFCOLORADDPROPLDEVMODEADDRECADDPAGEU<T pageframeT pageframeTT TCT T  PageFrame1CTop CLeft CHeight0u CWidth0u C PageCount C BorderWidth CTabs- C ErasePage- C DrawFrame- !CName PageFrame1 *CPage1. BackStyle 1CPage1.NameCPage1 :T  . PageFrame1.Page1UTHISFP3CLASSFP3BASEFP3PROP FP3METHODADDBASIC FP3COMMENT A_SCX2FLD FP3PARENTFORMREF PARENTNAMEFP3NAMEADDPROP ADDQUOTES!5     J( J-(  J(  TT T  #CWidthC   ,CHeightC   "T C%C 0C CC CF %   LCTop CCscreen&Cscreen&Cscreen&$ MCLeft CCscreen&Cscreen&Cscreen&$ T CF %  t)CTopC  "CLeftC    C AutoCenter  UARRANGELARRFLAG LCENTFLAGNROWNCOLTHIS NDEFFONT1FP3FONT1 NDEFFONT5FP3FONT5 NDEFFONT6FP3FONT6ADDPROP A_SCX2FLDFORMREF A_SCX2FILESFORMNUM GETARRANGE8%<r     CC form NODEFINE6%C 82>*----- C C 1r     CC form NODEFINE6U THISFORMREFLDEVMODE NEW30ALIASPLATFORMUNIQUEID TIMESTAMPCLASS BASECLASSOBJNAMEPARENT PROPERTIESUSER RESERVED1 RESERVED4 RESERVED6 FP3SAVEPLATFP3IDFP3TIMEFP3CLASSFP3BASEFP3NAME FP3PARENTFP3PROP FP3COMMENT FP3RESERVED1 A_PJXSETS FP3RESERVED6 FP3METHOD_FOX3SPRCODEMETHODS4 H 0 B L B h B  B  BUWSTYLE4 BC]UNEWOBJ! 4CT% TT T    T COTa "TDataEnvironmentTcursorTcursorBUPARM1PARM2FP25OBJINITTHISCOLDPARENTNAMEFORMREF PARENTNAMELHASDATANAVOBJ FP3COMMENT FP3OBJTYPEMAPITADDREC NDNORECNO NEW30ALIAS CLEARPROPFP3CLASSFP3BASE"T^UFP25OBJADDBASICTHISFP3IDR     TUTHISPREMAPADDBASICADDMAINPOSTMAP WRITENAMEFORMREF NDNOCOUNT#% 6CXCC% 'CAutoOpenTables  (CAutoCloseTables  JCW( F T CO- #~+ e8TCC C 6% CN#6H #  F -CInitialSelectedAlias CAliasC *C CursorSourceCC %CCC TCOrderC T C(% CC  T    !T CC!T CCUNLEN CSAVEAREANCURRECTHISFORMREFLHASDATANAVOBJADDNAMEFP3CLASS GETNEWNAMEADDPROP LAUTOOPEN LAUTOCLOSESAVEAREAC25ALIASOBJTYPEPLATFORM CMAINCURSUNIQUETAG A_SCX2FLDFULLBMPA_TABLESA_TORDERB4TBC CCZUNEWOBJTHISFORMREF NOBJCOUNTTUTHISFORMREF PARENTNAMECOLDPARENTNAMETCjr     -UTHISFP3PLAT GETPLATFORMFORMREF NEW30ALIASPLATFORMUNIQUEID TIMESTAMPOBJTYPENAMEEXPRENVIRONFP3IDFP3TIME FP3OBJTYPEFP3CLASSFP3PROP\ 4CT"TDataEnvironmentUPARM1PARM2FP25OBJINITTHISCOLDPARENTNAMEFORMREF PARENTNAME % @C bCC  "C ParentAliasC  %CRelationalExprC  !C ChildAliasC  T CEXACTvTC CC `% @*C ChildOrderC  SET EXACT &loldexact T CWTC FT CO>-    C  %C4fxT*- [CONVERTER] set SET SKIP TOC SELECT CC@C  SET SKIP TO CC@C  >a#C CNCN 6 F UNPOS LOLDEXACTNRECSAVEAREA NWORKAREATHISFORMREFLHASDATANAVOBJADDNAMEFP3CLASS GETNEWNAMEADDPROP A_SCX2FLDA_TABLESA_TORDERC25ALIASOBJTYPEOBJCODEPLATFORMEXPRENVIRONCSETSKIPTAGTCjr     -UTHISFP3PLAT GETPLATFORMFORMREF NEW30ALIASPLATFORMUNIQUEID TIMESTAMPOBJTYPENAMEEXPRENVIRONFP3IDFP3TIME FP3OBJTYPEFP3CLASSFP3PROPErrorWriteLog BeginLog3EndLogIsDBFGetPlatformCount GetPlatformTCleanupcInitjDestroy DoConvert\GetOpts%- GetVersion 0PreForm\0PostFormc0TStampj0 AddQuotesv1AddProp2 IsDefault9 ClearProp{: AddMethods:FindArryBOpenFileCH GetVarPrefixK Converter3Ook2nukeO CompileFRX P CreatePJXSQ InsertSCXT CloseFilesU BackFiles!W CompileAllScxa CompileAllFrxe CompileAllDBCfDestroyjInit jCleanupq Converter4yp30to40ExtProjU InsertSCX\ Conv20PJXnClosePJXM GetNextFsetcInit Converter- InsertSCXCleanupôClosePJXInit Converter EraseBackup KnownFileX CreateSCXO Conv20SCXMAddParmPostForm CloseFilesCleanupc Set30Defaults> Add40Property AddFontSub0 WriteFontSubJ AddFSet  ReadClause+ WriteReadsAddReadsq MergeMethods, GetDefine 1ScanPlat'4 AddProcs18 AddGenProcs9AddSRecs= AddSCXObj@ UpdMethodsHMakeVarT CleanProcUInitW Convertert_ CloseFiles`Inite Convertert CloseFiles%| CreateFRX Conv20FRXɀPostFormCleanup EraseBackup"Init MapIt AddMain9 PreMap@ PostMapG FullBMPN GetPicParto AddRec AddBasicO AddName: WriteNames AddFont AddPost AddColor GetStyleX GetNewNameW AddFormat( AddFXb AddMode Conv2Strȝ AddBasic AddMain AddCtrl AddGroup AddBtn AddValue AddCtrl AddPos AddColorɳ AddCtrl> AddCtrl AddPos^ WriteNameeAddCtrllAddColorAddPos WriteNameAddCtrlAddCtrlQAddMainAddCtrlAddPosRAddMain\AddCtrlAddPos AddCtrlAddValue[AddCtrlf GetNewNameAddColorFAddValueAddValueAddPosw WriteName~AddMainAddCtrlAddModepAddCtrl?AddCtrlMAddPosAddValueAddMain GetNewNameAddBasicAddFXAddMainAddFontyAddPosAddColorbAddColorAddBasicAddMainfAddPosAddFontAddColor AddMainQAddCtrl(InitAddBasicAddMain>PremapPostmap, WriteName$AddPage+AddPosAddRecC GetWBorder GetNewNamepInitAddBasickMapItAddMainP GetNewNameVDestroyAddRec Init(!AddMain!AddRec@" T- T- T T- T T- T- T- TT CT C        U LHADERRORLLOGCLOGFILELDEVMODE CCODEFILE LLOCALERR LHADLOCERR LSHOWN1994 CCURRENTFILE DTSTARTTIME DTENDTIMEa%TSCXSingleScreenConverterTSCX30ConverterT PJXConverter TT FRXConverterT FPCConverterTDB4ScrConverterTDB4FrmConverterTDB4LblConverterT DB4CatConverterT DB4QbeConverterT  FmtConverterk   !"#$%T CTALKvT CSAFETYvT&CESCAPEvTCESCAPETCNOTIFYvTCMESSAGEvTC MEMOWIDTHvTCCLASSvTCDEFAvCTCPROCv TCTC COMPATIBLEvT'C EXCLUSIVEvTCCOLLATEvTCBLOCKvTCTRBEvTCFULLPATHvTCUDFPvTCDEVEvTCDEBUGvTCERRORTCEXACTvT CKEYCOMPvT!CCPDIALOGvT"CPOINTvT#C SEPARATORvT$CPATHvT%CLIBRARYv T( T) T*a T+ T,- - T-T-T-T-T-aT--T--T-T- -T- T- aT- T-  U.SCXCONVERTERCLASSSCX30CONVERTERCLASSPJXCONVERTERCLASSMNXCONVERTERCLASSFRXCONVERTERCLASSFPCCONVERTERCLASSDB4SCRCONVERTERCLASSDB4FRMCONVERTERCLASSDB4LBLCONVERTERCLASSDB4CATCONVERTERCLASSDB4QBECONVERTERCLASSFMTCONVERTERCLASSOLDTALKOLDSAFE OLDNOTIFYOLDMESS OLDMEMOWIDOLDCLASSOLDPROCOLDDATA OLDCOMPAT OLDCOLLATEOLDBLOCKOLDTRBE OLDFULLPATH OLDUDFPARM OLDONESCAPEOLDDEVOOLDDEBUGOLDERROROLDEXACT OLDDEFAULT OLDKEYCOMP OLDCPDIALOGOLDPOINTOLDSEPOLDPATHOLDLIBR OLDESCAPE OLDEXCLUSNCURRENTWORKAREA NNEWWORKAREA LUSERCALLCBACKDIRLHANDLED ACONVPARMS T T T T T T T TTALL T  T - T - T -   T  T T T T T T T- T              U NTIMESTAMP OLD25FILEC25ALIAS CNEW30FILE NEW30ALIASPLATONLY OLDFILETYPE OLDFILEVERPLATFORMCSETSKIP LAUTOOPEN LAUTOCLOSE LTRANSDLOGA_DIMES NDEFFONT1 NDEFFONT5 NDEFFONT6 CDEFCOLOR NRECCOUNT NTMPCOUNTLBACKUPIPLATFORMCOUNT%TSCXSingleScreenConverterTSCX30ConverterT FRXConverter T T Ta T T T T  T  T  T  T - T- Ta T T- T- T T T T T T       ! " #USCXCONVERTERCLASSSCX30CONVERTERCLASSFRXCONVERTERCLASSCURSCXID HIGHSCXIDISPROJCHOMEDIRCBACKDIRCOUTFILE CSTUBFILEPJXNAME PJX25ALIAS PJXVERSIONLISMAINLENCRYPT LSAVECODECDEVINFOLDEBUGLEXCLUDE NSCREENSETS NSCREENCTRCFULL30PJXNAMEF2FILESF3FILESCMEMOEXT A_PJXSETS T T    T- $ % & ' ( ) * + ,UPLATFORMWINOBJ AMASTERPARMS A_S2FILES A_S3FILESA_SCXLSET30DEFAULTS5 - . / 0 1UHTfp25formTfp25lblTfp25sayTfp25lineT fp25shapeTfp25editTfp25getTfp25spinTfp25cboxT fp25listT  fp25popupT fp25pictT  fp25radioT  fp25btngrpT fp25btngrpT fp25invgrpT fp25invgrpTfp25oleT fpdatanavTfpdatanavRelation Ta T T T T T T T- T T T T T  T! T" T# T$a T% T& T' T( T)- T*- T+ T,- T- T.a T/- T0- T1- T2 T3 T4 T5 T6- T7 T8 T9T:Screen T; T<- T= T>- T? T@ TA TB TC- TD- TE- TF TG H TH I TIJ TJ K TK L TL M TM N  TN O P TO TP 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L MUQ FORMCLASS LABELCLASSSAYCLASS LINECLASS SHAPECLASS EDITCLASSGETCLASS SPINCLASS CBOXCLASS LISTCLASS POPUPCLASS PICTCLASS RADIOCLASSBTNCLASS BTNGCLASSINVCLASS INVGCLASSOLECLASS DATANAVCLASSDATANAVRELATIONCLASS SPECIALFX OCONVFORM NOBJCOUNT CSTUBFILESCXCOUNT TIMESTAMPCNEWSCX ISMULTIPLATCURPLAT SAVEDPLATPLATFORM PARENTNAMECPARMSFORMNUMFP3PROP FP3METHOD GETBORDER ITSE_EXPR READ_EXPR WCLAUSE_EXPR CWNAMEEXPR NOREADEXPRNOREADPLAINEXPRFONTSUB LMULTIREADSCBACKDIR LUSERCALLPROJCALLLHASDATANAVOBJLINDIRECTWINNAMECINDIRECTWINNAME CFORMNAME NDNOCOUNT NDNORECNO LCONVERTED CREADSHOW NFSETRECNO NFORMRECNO CHEADERID CDEFINEWIN LHASINVISCPROCSLHASIDX CMAINCURS CWINNAMES IFORMSETCTR CFORMSETNAME LHASSYS16 LHASRETURN LNOCOMPILEIPLATFORMCOUNT IWHICHPLATA_PLATA_READS A_SCX2FILES A_SCX2ALIAS A_SCX3FILES A_SCX3ALIAS A_PJXSETSA_TABLESA_TORDER, T- N O PULSET30DEFAULTST fpFRXdatanav!TfpFRXDataNavRelation T T T T T T- T- T - T - T  T - T - Ta T T T T- Ta T T T    T- T   T T Q R S T U V W XU DATANAVCLASSDATANAVRELATIONCLASS OCONVFORM NOBJCOUNTFP3PROP NDNOCOUNT NDNORECNO LCONVERTEDLBACKUPLHASDATANAVOBJPROJCALL PARENTNAME LHASINVISLHASIDX LUSERCALLCBACKDIRCNEWFRX CMAINCURS LNOCOMPILELNEEDSDE CFRX2FILES CFRX3FILES CFRX3ALIAS A_SCX3FILES A_PJXSETSFORMNUMA_TABLESA_TORDERI TTWINDOWS T T T T T T T T  T  T  T  T  T T T T T T T T T T T T T T- T Y Z [ \ ] ^ _ ` a b c d e f g h i j k lUFP3PLAT FP3SAVEPLATFP3IDFP3TIME FP3COMMENTFP3CLASSFP3BASEFP3NAMEFP3PROP FP3METHOD FP3PARENT FP3RESERVED1 FP3RESERVED2 FP3RESERVED6FP3FONTFP3FSIZE FP3FSTYLEFP3FONT1FP3FONT5FP3FONT6FP3FUDGEFP25OTFP25OCFORMREFPICWORD1PICWORD2PICWORD3HASITSE ICOLORSOURCE? m n o p q rU! s t uU vU wU8 T x y z {U ICOLORSOURCE. T | } ~U ICOLORSOURCE U! U! U U+ U T UIVALUEB T U ICOLORSOURCE U! U U? U U5 U U~ T UCWINNAMEY T T UCOLDPARENTNAME FP3OBJTYPE U$ T UCALIAS UCvtcustom] MasterConvertCvt ConverterBaseCvtPJXConverterBase ConverterBase=  PJXConverterPJXConverterBase8# FPCConverterPJXConverterBaseE$SCXSingleScreenConverter ConverterBase~$SCX30ConverterSCXSingleScreenConverterq. FRXConverter ConverterBase.fp25obj ConverterBase1fp25ctrlfp25obj]5fp25listfp25ctrl5fp25btnfp25ctrl5fp25cboxfp25ctrl5 fp25btngrpfp25ctrl5 fp25invgrpfp25ctrl16 fp25invbtnfp25ctrlq6fp25getfp25ctrl6fp25textfp25ctrl6fp25editfp25text6fp25sayfp25text6 fp25optionfp25ctrl7 fp25radio fp25option<7 fp25popup fp25option7fp25spinfp25ctrl7fp25lblfp25obj7 fp25shapefp25obj7fp25line fp25shape$8fp25pictfp25obj58fp25olefp25pictn8fp25formfp25obj8 fpdatanavfp25obj9 fpFRXdatanav fpdatanav9fpDataNavRelation fpdatanav9fpFRXDataNavRelationfpDataNavRelation9@1rqqqqqqqq3qqqqqAR!ABrq!aAAAAARAAArArAA1AAAAaBQB!QAA31b!AAAAAA1AAA1q AAAraA55r!5r# 6tAA5BA25rAAA41AAdaaaAb2Aaa!aaaaaaaAbqAc3bA"!5rbaAbaA"aAbaA"1"A""q"a2AAA"q"a"""1"1""a"Q""!2A6rqqfAAbsABAAbsABAAqAAr11BAqAbAAAAbsBRAAqAArBBAAAsqBc"q"q"q!qBA3AABaAAqAArE AAbAsAAqAAAABrrBqAAqAArC5RaaAaAq1qA4178"!7 4rQQQA4&AAAAQAN1 1R1AQQAARa  ABA#B51!AqqA5523AA2AAsbAaaaAA"qqQQAAaaA"A11Aq!!AAA" AB5QAAq1BAAqAQAAAQAqaQAAAQAAq1BAAqAQAAAQAqaQAAA5rrQ"!qbAAA6raQaBaqQA44tArA5vr!1ABA1AA1rA5 A5"A"Q!AAA52sAA2sAQ#b2AAq1AAAAA"qAAABAAb"2AA"aQAAAAAAAAB632"R!AAAQbA!AAAA`1sRQAAAAAA52r1RqAAAQ!!qqaAQAAAAAAQAAAAA6@1rsbQ2BAAAAAAAA2111AqA!!qA"AAAAcqAsAQ5BarA""AAAq!BA1bAAAARaBAAaAAAAAAAAAaAAAqA1aAAAAaA"AqA5511$AA2B11BAqA2AAqAS"AqAAAQ!A1!A#AqAAAABaAAAArBR!B!B!Bqfa1"AAAA12A"AArA1QA!2AC"y reBAAabA!AAAA#AaAz "!Cy A!y AA5AAA47sr2bAA5RQa1qAq4rQAA#AqAabAa1A5r"AAVrbe!!1RAAqAAAAAAAcaaaQaaaaaRA1rsbQBAAAAAAAAA2111AqA!!AAsAAqbqA5uqqqAAAqBqAaaaaaaAB11BAqA2AAqA2QAQ!!A1qAAAABr#sBA1aaaaaB!A1!AAAA q (1AA6s2bA6%AAq!BA1bAAAARaaqAaqAaqAAAAaAAAqA1aAAA"AqAqA5#AqA!AqAA"AaA1P1r"BAAAAqrqr1QQ1qA1AAAaA!AAA"12B2"AqAqAAqAAQRAAQQAAAAATAA!%AABQAABsAQ"A5"qRAAs!AAC!$RAaAAAAAr!!ABCsAS25AA4tBqqAA1aqAAAA5R! quAAA5RQaQqAAQAq43# RQAbAA3Aq1AAAAR1A!!AA1QAAAA!AAA"1AArAA2dA<1A4A 1AAHAAA4x!"!A#AAAAA%C!AaQqA#B5rrQq1rQA1rA!qA1A"A!A1AAQAAQAATAb!AU!A!AASARAAQAa!AAABB5uSa!A$bAAAA2A1AAAA6WAA"A1!Aq1A1AA"AABr5aAAA5r A44u"s!!A33ssAC#BA13A1A1!AA2AAAAr 1!A AB26AA1AAQACQAA5QaQaA5rQ11Qr#AaQAa1BAA1AQAA1BATCQAbQAQ!!aqAAAAAAAaaA6!1AQAAAA31!!AbbaA$1A"aaaA#q!A$!AAAAAB2A1q0A2!!!!!423A2"qqSQQAAAAQ!"$QABA4t!1AA21A!QAA2QAAAA4rA"BAb#AqA!BAbQAAd!AAAAAAAA#14!2A2!AR53 A3 A A5qAAAABAAASCAqQAA3AAsB52Q11!1!1T 1q!1A!11!1A!1a!!1!1!1q!a!a!a!1q!BD!1!1a!AA4bs AqA1A5!AB4r3uBA"qqQAQAAAaaB?r2"1QQq1AAAas!AAA!1A2AqAqAsbAqAr"r"qA4IBBAA4r1QAAQAAb!AQAAaAA1AABB 1r"BA11111"!!!"!!!AA1QAAAA1"!!!"!!!AAAA#12BAqA$ASAqB1aq"AAAA!qAQRAAQQAAAAASAA!A!AARQAAAQAAAAASAAaAAtAQ5"1Qq"sAQAAr"B3BA rACAQaaBsB#35"!!!"!!!ArA"A"AsA"aAaAaAqaAsAA5aqAqAB5AQa11qAAAq54uS!QAAq1AAAqAqAAA5QAQA1!!!AA44555s5r1AAA1QAAQAAASA1!!a!1!!!ACAAA45j 1!A: A4CaAa!4r!44CAAbARQQbaaCAAAA!AA1AAB535rbBcCA4ta3q1AAA?rq2!A"AA4!1A!aA4tqaaA4T1A4raaA;!4BAAAAQAAAA1ACd65q!21C!AA!1!1AQAQAA333QQ!AQQAQAQAA"BAA#rAAAA3B4AAAA52QAAAQAAAAqAA;sQQQQQQAA535BbAc#A<<A<33q4s>33;:A2B5bq!4B4as<A2B55as;"AeA4F<5sq!aA4dcAbcA51aA1A2rAA>R2AA!<346AA5Tb"A;rD1aaQqA:CaAAqA4u4tBA!AAB;rCB!QA1AAA2B5sq!aA<16sa1A4BQQQQ1A1AASAsQRQQQQA55QAQ!aAA!aA4rBbAcAAdq;BbAcAAd;14SrAA5Q!a44A;c5?a414T1daQAAA1bQbQbbAQAAA21AAABAAA1AAAAaQQA!QqA3QAtQA!A3AAAaA54S3aaaAcACA55AaaqQ41Q2113%"A2A!A55 1!AA4u11111A5s?bbB3A"aaA444C1ABr1A!QAAcAsRQQAD5r4c9B=bb!5C1A#Sc1AA;B8qq@`6U3QQaQAa1aA1q11AQAaqA1a11111111 p7@ P01T@ P41PP`P10@@P1XAAQaQAQQQaQarqrqAa11 @@ ` ` ppPP1`1` =A `?`  1@18?:59p@1p1`:11>1` 11P@116@: P:5=1=Z?!!"+"#5#/%?%'Lb':)j)++,T8oAAHQZ\InAos;!tbt->Azza?zE{h@{_}pF}~P~}̊Ռpݍ!'YvGn2w]hzеp'_6\;"/:(Oq&|b~w &`w7i 79 S99 := >@+ )AFB BF Uq V_ K`2{7 ?{ HƍA ,3 CM#1 Fu?X ; _J $ {$.4 .0dD 01L3}J 34M 5 F FJ/ HKNW N:qqh qya tz X % Q; ɏe' (!r   jA հG  N 6 Qv Ft4e: Dtt abHI! Q!i!!! !"%M""*"1,3y,01223\333;A_;/=Fw=PARAD1`7EHTs1I KsvKLL'NdNOPP@QVVN?M@LALBLCNDLELFLGLHLILJLKMLNMNNL%Cnewfile$QOQ OBUP CNEW25FILEPLATFORMUNIQUEID TIMESTAMPOBJTYPEOBJCODENAMEEXPRVPOSHPOSHEIGHTWIDTHSTYLEPICTUREORDERCOMMENTENVIRONBOXCHARFILLCHARTAGTAG2PENREDPENGREENPENBLUEFILLRED FILLGREENFILLBLUEPENSIZEPENPATFILLPATFONTFACE FONTSTYLEFONTSIZEMODERULER RULERLINESGRIDGRIDVGRIDHSCHEMESCHEME2 COLORPAIRLOTYPERANGELOHITYPERANGEHIWHENTYPEWHEN VALIDTYPEVALID ERRORTYPEERRORMESSTYPEMESSAGESHOWTYPESHOW ACTIVTYPEACTIVATE DEACTTYPE DEACTIVATEPROCTYPEPROCCODE SETUPTYPE SETUPCODEFLOATCLOSEMINIMIZEBORDERSHADOWCENTERREFRESHDISABLED SCROLLBARADDALIASTAB INITIALVAL INITIALNUMSPACINGCURPOSNEWFILEI4   TG 1 DO EscHandlerT-TCTCT CT CT CT CT C TC T-CConversion Log for cC Converter: AMicrosoft Visual FoxPro Converter Utility Version 6.00a 01/01/98)CTC%C$C Cannot open .xTaB(T-TTTTT FC' scr ( C' ( T  T0CChanging catalog structure...Ta%C |TaB6CQ?Backing up project files...T C TCC% TaB-.C 3@Migrating files...U APARMSNCT2NCT3GOPJXTHISISPROJ NTIMESTAMPTSTAMPPJXNAME PJXVERSIONCBACKDIRLDEVMODE CCODEFILELLOGCLOGFILE CCURRENTFILEWRITELOG PJX25ALIASOPENFILE LHADERRORIGASHOWMETYPE NSCREENSETSCURSCXIDGOTHERMUPDATE2VISIBLECATCONVCHOMEDIRGOMASTER CLOSEFILESs4Ta%R!TCCC,Z (CE)BCU ERRORNUMMETHODLINETHIS LHADERROR LLOCALERRCERRSTRCVTERROR 5T C%F B%CjQTBC U COLDCTMPFILETHIS PJX25ALIAS CONVERTDB2FP LHADERROR CLOSEFILES NEW30ALIAS FPCCONVERTER CONVERTER%CC.FPC0A C.FPC%CC.FCT0x C.FCTU FPCCONVERTERCLOSEPJXTHISCFULL30PJXNAME35            T CdefaultvCT aT %CC: CC; #T CC]C].CAT+C 0#T CC]C].CATQ  ( % ZCC6Error @1 occurred while trying to copy the catalog to @1  .xT -T -B-%C C:  B-Q  % DCC Error @1 occurred while opening @1  .x T -T -B-T - T -!T CC ]FPC+%C 0CCC ]FPT0 T C FPCa T a T a/%CC aCCC: C:-6 Z +aV T aT C $T  CC FPC+%C 0CCC ]FPT0 T C FPCa T a T -0%CC aCCC: C:-6  R!% 2C &C' T CC ]G( *>CCCCT CC ]G( %C C  G T ~CC`0 :%C %C C0> C.T T )T CC Locate C %C 6> T CCT  % UC=Due to a name conflict, the catalog file has been renamed to .x%C  Q  T  G(  B U WZISELECT WZSDIRNAMEWZS WZLRETURN WZSNEWNAME WZLAUTONAME WZSTMPNAME WZSDEFAULTCTMPPATHCNEWPATH CTMPFNAMEOLD CTMPFNAMETHIS LLOCALERR PJX25ALIASPJXNAME LHADERRORCERRSTRCPTAGAUTONAMEFPCNEWPATH FILE_NAMEALIASTYPETITLECODETAGALLUPDPATHS   T CdefaultvC F~ C' T Cscr FORMeCqbe upd QUERY=Cfrm REPORT"Clbl LABELOTHER6666 H1 C FORMREPORTLABELQUERYT CCC ]T  %C 0 _CCC C Could not locate file listed in catalog . Not backed up. .G( %C   .ZT HV QUERYT CW F> C f F CCC @a  FORMCscxa %2 _DO (gTransport) WITH (&wzsfpcalias..path), 12, .F., gAShowMe,m.gOTherm,(&wzsfpcalias..path)  REPORTCfrxa %2 _DO (gTransport) WITH (&wzsfpcalias..path), 13, .F., gAShowMe,m.gOTherm,(&wzsfpcalias..path)  LABELVClbxa %2 R_DO (gTransport) WITH (&wzsfpcalias..path), 14, .F., gAShowMe,m.gOTherm,(&wzsfpcalias..path) T%1C ?d2G( BaU WZSDEFAULTWZSMODECTMPPATH WZSFPCALIASWZSFNAMETHIS NEW30ALIASFOX_FILETYPEPATHWRITELOGMIGRATE WZISELECT SETFOXFILECURSCXID NSCREENSETSGOTHERMUPDATE24   5   T CW%C T CCATALOGa%C  BTah1  M M C  C MNCLMLTCT-%T-FCC!Error @1 occurred while creating @1C ]x B%C  Q%C    BTa Q T-%ECC Error @1 occurred while opening @1C ]x T- B %3P5'TCC ]????FOXX% EHCC Error @1 occurred while opening @1CC ZAC ]x  B< %  ~Q F  B UWZSFNAME WZLLEAVEOPEN WZICODEPAGE WZSPROMPTWZS WZISELECTPUTNAMETHIS LLOCALERRPATH FILE_NAMEALIASTYPETITLECODETAGFOX_FILEINDEXESWIZARD NEW30ALIAS LHADERRORCERRSTRCPTAGWZNERROR FXSETTYPE ADDFPCREC)!>C&fpcaUPATHTYPEFOX_FILE4  5   T CW FT T % O>CCC ] fCCC ] f a > a  F U WZSTYPE WZLFORCEEXT WZSSELECTWZS1WZS2THIS NEW30ALIASPATH FILE_NAMEFOX_FILETYPE4   5    % IF MESSAGEBOX(STRTRAN("You must convert your &wzsString before you can modify it in FoxPro. The original @1 will remain unchanged. Continue with conversion?","@1",PROPER(m.wzstype)),4 ) = 7 B-;C %Begin migration to FoxPro 2.x format.T  Hz' QUERYT CW%C_FOX3SPRQ h_FOX3SPR M T CC ]PRG  T CC % `> C = ( Q F  FORM T CC ]SCX%C  -C Unable to migrate file.B- REPORT T CC ]FRX%C  -C Unable to migrate file.B- LABEL' T CC ]LBX%C  #-C Unable to migrate file.B-%C 0 ;CC!Migrated file @1 cannot be found.@1C x-C Unable to migrate file.B-T  LC 6Successfully completed migration to FoxPro 2.x format.BaU WZSFNAMEWZSTYPE WZLCONFIRM WZSNEWNAMESAVEAREAOTHISNPOSTHISWRITELOG_FOX3SPRTEMP1MIGDB44TCTCTC\.TCC>=.SCX%C -CCannot open source file CxTa  BT aBU APARMS NFILEREADYTHIS OLD25FILE CROOTNAME CPATHNAME CNEW30FILEREADABLE LHADERRORCLEANUP LNIXNEWSCXUJ(TTd6CMigrating format file CC@C dT C]h1  CT CT aQ#%C .DBFC: E Q  TaB-Q TCNCTCTa>?U>L"CCּ" !"#$a%a&'a(a)* + CLEAR READC C ,PUSH KEYC C ON KEY LABEL PGUP DO dopgupC C ON KEY LABEL PGDN DO dopgdnC C !ON KEY LABEL CTRL+PGUP DO ctlpgupC C !ON KEY LABEL CTRL+PGDN DO ctlpgdnC C IF EOF()C C  GO BOTTOMC C ENDIFC C - mignavpr.txt>0a51 1 J(1 F C12FT 3C1 % 3 CC1 4 >0a 4(C10M> 45C 41.DBF6aCC 41 7 T7SAYT7GETT7PICTT7FUNCT7VALIDT7WHENT7COLOT7MESST7 RANGT7 ERRO F ~*CCOCN dT8CC f%8READ T9a :!Z%C8=@CLEAR TO8 FILL TO8 PROM8 MENU8 . T;-T/CC C@ \%C/R;T/;~+C/R;~T/C/C/>=C  HT/CC/C@/\+ /T/C/  T/C/C  T <C/C,/=T/CC/C,/\AT =C/C /=% BOX 8T/CC/C,/\AT/CC/C /\A F>>C <g?C =g*%CC/=fTO  BOX 8 > % DOUB8B #>@C m #>@C %C/fTO T/C/\$T CC/C,/=gT/C/C,/\T C/g;> >C ? ?6CA.B C D(  TBDCCD7C/fTB C/> CB"%GET8 SAY8  T;aD( %CDB. TCD.1TCDC/CDBCDBCDB\(TECCCDCC CDC\TFCCCDCf=%FSAY l%C"ECE=" CER" 0C'ECE=' CER' _ ;>GECE> =>GE Ha TI%FGET %; TJ>TK?CG>>>J?K% EL TECEC E=+>5E TL%M/%>E TNCEC>E=TOCEC>E\ TNP TOE%NP+TLCON%L HQ CEbCthiswidth=LEN(&thisopt)  CEbN thiswidth=LEN(STR(&thisopt))  CEbD TL>CL L6%FPICT2>QECQ>%FFUNC%CQ>TRCQCQ>\*TE"@CECE>\ RTECE@[ >QE%FVALI >SE%FWHEN! >TE%FCOLObTECECE>\ >UE%FMESS >VE%FRANG>WCEC,E=%,E>XCEC,E\%FERRO >YE F CZ F>\DOS]C]5^ _ `#)T^~T^C ^>D#)> ^2}CO( _ `?>#)->C _DC `D F  BaUaAVLINETHIS NTMPCOUNT NRECCOUNTGOTHERMSETTITLE PARTIALFNAME OLD25FILEUPDATECTEMPDBFLINE CTEMPNAME LTEMPOPENCPTAGCLEANUP LHADERROR CREATE25SCX CNEW30FILE CTHISALIAS LTHISOPENNEWFILEOBJTYPEOBJCODESTYLEHEIGHTWIDTHTAGGRIDVGRIDHWHENTYPE VALIDTYPESHOWTYPE ACTIVTYPE DEACTTYPEPROCTYPE SETUPTYPEFLOATCLOSEBORDERCENTERMINIMIZESCHEMESCHEME2 DEACTIVATE SETUPCODEPROCCODEMIGNAVPRTXTENVIRON ASCRTABLES GETTABLESNTABLESNCTRNAMEUNIQUEPNAMEUCLINEFINISHCOMPLETEGETSAYROWCOLVPOSHPOSFILLCHARCVTLINEGPOSOPTIONSXTHISOPTOPTNAMEEXPRREFRESH PICTWIDTHTHISVPOSTHISHPOS THISWIDTHLDBFOPENANAMEFLDNAME FMT_ALIASPICTURETHISPICTVALIDWHEN COLORPAIRMESSAGERANGELORANGEHIERRORFIXVERTALLPLATFORMUNIQUEID SCRHEIGHT NMAXWIDTH NMAXHEIGHTG4 -->+C+ <T CC->="T C C \ %C .DBF04%C 0T C %  CC TC , T C BU ASCRTABLESCTABLENOLDLENLINETHIS CPATHNAME%C# FQ%C} FQ%C.dbf0y .dbf%C FQBUTHIS CTHISALIAS CTEMPNAMECTEMPDBF CFMTALIAS Create25SCX>InitFError  Converter{ ClosePJX}CatConv. ConvertDB2FPcfpcnew addfpcrec! SetFoxFile!migrate#Init( Converter * GetTables?CleanupCA UT FmtConverter T        UFMTCONVERTERCLASSCERRSTR T- T- T T T- T T T T- T  T  T  T  T -  ULDBFOPEN LTHISOPEN CTHISALIAS CFMTALIAS LNIXNEWSCXBARCOUNTCFMTDBF CHOOSEVARFINISH CROOTNAME CPATHNAMECTEMPDBF CTEMPNAME LTEMPOPENForeignConverterBase ConverterBase3CDB4CatConverter FPCConverterDC FmtConverterForeignConverterBaseC:u1?bAA?sbQBAAABAAA111"AAAsqA"AAbbqA5AA5AA"A15qAqA56r1!1AqqAqBqAAAAQAAAAAA"A1!aAAA#RAA"RAA"A"5a"AAAqAAAAAAABrBAABr5UQAAa!AAQAAqq1AqAAAA6R5RrA5R! qAArAQQ1AArqAqAqAA"qAr1srBaSAAC3Cb"C1qA2RQ%sr!QAAaaqqqqqqqaQAAAAqAABAaAQa11AQ!AAQAArqA!Aqa1AABAAAqQqA!A!A!AAAAAAAAQAQ1AAQAQAQAQAQ!AAQAAA1QAQ!$Qs5r!!q1AAAAAA5"AA"AQAA"AAB910 `p11"  ' A:I#Vp^)/*34=<&<=>)M=V?F6?F^naJM}Mv]wzrbz{21  F|wG|A%v&+lUH45   5  5 !%C m.returnmlinebN T a%C m.allafterbL T - H3 C m.occurancebNT   3BC C 6T C +%C C  C  BC C 6T T "T T T T T T T T % KTC T C T"CC  %"T" BC C 6T   +a H"!  "C >  ! "C >1T 2"T "T CC "*T CC C  C >\% T CC  =%C >C > T !T C C >\T C *%   C  "T T C C "\T"CC  %".T C C \T"CC  %".% !T  "%   (%  C  T "T  T  T  T  %C"C >T""T  ".% % gBC C 6T" T  T  T  T  T T "T" T T C C >\-% C =    T C % T C \T C %   B 3T   C 6BCC C   =T" BC C 6UFIND_STR SEARCHFLD IGNOREWORD RETURNMLINE OCCURANCEALLAFTERLNOSTRIPMEMODATAMEMLINEMEMLINE2STR_DATA LASTMLINE MATCHCOUNT LINECOUNT LINECOUNT2AT_MLINE AT_MLINE2MLINE2LF_POSLF_POS2AT_POS MEMODATA2 CLEANWHITE45 5     %C m.insflagbNT  5T CC m.replace_strbC  6T C T C /+C =C C =C  'T C \>  T  T C % T CC =T &TC aa TC  3T "CC"\C C 6TC  T "  %   yT % T C  \T CC % T  /T C  =C  \%  % JB-%CC =fM.&searchfld=m.memodata >  Ba H/ 5T C  = C C  \ V%C  ;T C T   2/B%C  C RC C  C RC  T  C /+C RC C RC  T C C >=#T  C  C /+C RC C RC  T C C >=T  C %CC =fM.&searchfld=m.stuff_str >  BaU STUFF_STR SEARCHFLD REPLACE_STRINSFLAG INSBEFORE OCCURANCEVAR_TYPEMEMODATAMEMLINESNPTNAMEAT_POSLF_POSSTR_LEN REMOVE_STRSUB_STRCTMPNLINEMEMOFINDg  T TDOSTWINDOWSTMACTUNIXTTT T T~ C ~ C \%C K.  BU G_FIRSTPROC G_PLATLISTG_PROCS G_PROCNAMESG_TABCHROBJTYPE ISGENPLATPLATFORM UPDPROCARRAYPROCCODE EXTRACTPROCS!4   5 T"$m.numlines = MEMLINES(&snipname)  ( )m.line = MLINE(&snipname, 1, _MLINE)   T CCC C  AfT C  H  PARM>-%C  C  PARAMETERS : B  SECT=%C  C =#SECT C    B  PROC F%C  1C  PROCEDURE C FUNCTION    B  BU SNIPNAMESNIPTYPESECTNUM PROCLINENONUMLINESWORD1KILLCRLINEWORDNUMMATCH 4  5T C T C C  +C T C    T H   H" C  T  C  D.T C C  \2 T C  .T C C  \  %C %T C C \T   BC USTRGW_NUMS1RET_STRSTRT_POSB 4 %37"T C C C BUSTRG4  5  T CEXACTvG HG C kT C  C > !T C a-62!T C  a-6% OFFG  B U CANDIDATEKEYWORDIN_EXACTRETLOGk 4 '5      T C& C& $IF ATC("PARA",&snipname) = 0t B$m.numlines = MEMLINES(&snipname) T"T +  [:m.thisline = UPPER(LTRIM(MLINE(&snipname, 1, _MLINE)))  %C  Q#T C C  =%C  C B H>0 C =#SECTC1  +  :m.thisline = UPPER(LTRIM(MLINE(&snipname, 1, _MLINE)))  %C  K#T C C  =)T CC C ;  H! C  PARAMETERS T CC C  A+CC VR;x(T   C C C *m.contin = MLINE(&snipname, 1, _MLINE)  T CC AC  T  C f"T C C \*+CC =C C C  T C \+C T C   T C m.T C M.T C m->T C M-> BC @0 C =#SECTC2   BT   C =#& CC  EXTERNAL -2> BT   BU SNIPNAMEI THISPARAMNUMLINESTHISLINEWORD1CONTING_DBLAMPERSANDKILLCR ISCOMMENTWORDNUMMATCH" 4 5    %C <B-T CC AfT C* T C  T CNOTE  H!   Ba: #C >C \   BaB-UTEXTLINEASTERISKISNOTE AMPERSAND STATEMENTG_DBLAMPERSANDx 4 5  T -:%C 'CCC; PARAMETERS f T a B USTRGISPARMATCHWORDNUM5   T CC+ CO6T 0~ C T CC] H 0T  #   0 B- # BaUCRCCODETHISCODEIN_RECOBJTYPE ISGENPLATPLATFORMPROCCODE0 4 $BCCCC fa-6UPLATNAME G_PLATFORMS4  +T CCC ;C C 긛fT C C  +C T C   +C, T C , , B UPCP4    5    %C KBT  ( %C  T  !% T  !T CC f (J"T  T -T T  T C  % T   BU PNAMEPLATNAMELINENUM LASTMLINERNUM PLATFORMCOLIJ G_PROCNAMESG_PROCS GETPLATNUMh 4 5  (X%C CC fT B  BUPLATNAMEI G_PLATLIST4  35        %CiT proccode T" m.sniplen = LEN(&snipname) %m.numlines = MEMLINES(&snipname) T -+"  <m.thisline = UPPER(ALLTRIM(MLINE(&snipname,1, _MLINE)))  T  T C R;$%C =PF  T C  9%C  PROCEDURE C FUNCTION T C  %CT C % H& C d#-    . C   2#a    Ta T  J( TDOSTWINDOWSTMACTUNIX#a    BUSCRNNOSNIPNAME HASCONTINISCONTINSNIPLENITHISLINEPNUMWORD1WORD2KILLCRWORDNUMMATCH GETPROCNUMG_PROCSEMITPROC HASCONFLICT EMITBRACKETG_TABCHR G_PLATFORMS G_PLATLIST!4     95         T - T -!T CCC C  긛fT CT C % %     + "  uT "'m.line = MLINE(&snipname,1, _MLINE)  !T CCC C  긛fT  T C R;$%C =PF 9T C 9%C  PROCEDUREC FUNCTION 5 T aT" .% q%     BUDOWRITETHISLINESNIPLENSCRNNOSNIPNAMEWORD1WORD2LINEUPLINEDONE LASTMLINEISCONTIN HASCONTINPLATNUM G_GENVERS G_PLATFORMS GETPLATNUM WRITELINEKILLCRWORDNUMMATCH4  95         T - T -A> C C  PROCEDURE C  C C %CC  6> PARAMETERS C  C C $> DO CASEC C  (!%C   Y.2> CASE _C C C T C    T $> ENDCASEC C BUPNUMSCRNNOWORD1WORD2LINEUPLINEDONE LASTMLINEISCONTIN HASCONTINI_FOX3SPRSPRMEMOG_PROCSPLATNUM G_PLATLISTG_TABCHRPUTPROC\4   ?5          T COT " T - - C  %C48T"C  T C"   T -+  4T C"  !T CCC C  긛fT  T C R;$%C =PF  T C %C R;T C C >= H9 C PROCEDUREC FUNCTION E T a.! C PARAMETERS+ T C"  !T CCC C  긛fT C R;., C    %"C>0 T a # T" BUPLATNUMPROCNUMSCRNNOIN_RECOLDMINEDONELINEUPLINEISCONTIN HASCONTINWORD1WORD2OLDMLINEPLATFORM G_PLATLISTOBJTYPEG_PROCSPROCCODEKILLCRWORDNUMMATCH WRITELINE?5          T"T C T - ( T "T C "  T CC fT  T C R;$%C =PF  #T CC  ; HJ9 C  PROCEDURE C FUNCTION T C     T  ! C  PARAMETERS T C % $T CC C \+   T "T C "  !T CCC C  긛f#T  C C  T C R;T   H  CC CT  & C CC T  BUINUMLINESLINEUPLINEWORD1WORD2ISCONTIN HASCONTIN LASTMLINETHISPROCPROCCODEKILLCRWORDNUMMATCH ADDPROCNAMEPLATFORMLASTPROC GETPROCNUM THISPARAMG_PROCS CLEANPARAMg 4 5  (W%C  S B  BUPNAMEI G_PROCNAMESG_PROCS4  +T CCC ;C C 긛fT C C  +C T C   +C, T C , , B UPCPv!4     5   H=k *&% *! *:  %> C C  #>a%C =#DEFIC =#IF C =#ELSE C =#ENDIF :%> C C 2k%> C C BU LINEPLATNAMEPLATNUMUPLINESCRNNOATEXPR_FOX3SPRSPRMEMOG_TABCHR 4 5  T  (z!%C vT  BC a-6UNUMICNTG_PROCS-4       5   %C T CC > 8T   ( ,T CCC \fT CC C  긛%  2%CCC  \fYT T a2%CCC  \fYTw T a T -*T CC  \g*T CC \g!BU ASTRINGCURPLAT ARRANGE_FLAG CENTER_FLAGROWCOL LSCXCENTERJPNAMEENTRIES 4 5  T C. $T CC\ C: D%  T C = B UFILENAMEDOTPOS TERMINATOR 4 5   T C\ % yT C > T C RT C: % T C > T C R B UFILENAMESLASHPOSNAMELENCOLONPOSz 4 TCTC>-+CC\C C eTBC=USTRGI 4 5 T C3:\6T CC f(%C R\: C T   B UPATHNAME SEPARATOR: 4 TC3:\6%3 : t+TC C: C: \T TC ]%C  &T C C  \%C: &%T C C: \ BC UFILNAME CLOCALFNAMECDIRSEP 4 TC ]TC3:\6%C  &T C C  \%C: %T C C: \%C.  %T C C. \BCC fUFILNAME CLOCALFNAMECDIRSEP 4 T CC f TC ]TC3:\6%  "T C C  \G%C R  C > C C >\: TC C >\ B  BUFILNAME CLOCALFNAMECDIRSEP 4 5 TC T %C. q%T C C. \ BC fUFILNAMEEXT= 4 1BC C: C: 6=UFILNAME4  5     %3FT :^T \T ...  %3"T C C: \T C  H C > T   C >C > -T  2&T C C >C >D %38T CC C: \ =  'T CC =   B UFILNAMEFILLENBNAMEELIPSEREMAIN G_PATHSEPRETSTR4   5 %C \.MT C \T C T CCC f%C. 0T C C. \. T  . BC  UFILNAMEEXTPNAME 4 TTTRTTTT'TTTTdTbTeTaTfT]TgT T hT lT iT T jT YT kT 'T T-'TT'TTTTTTTTTTTU WZACPCODES4  5      T  (C% C T C !% 7CCCode page @1 is invalid.@1CC ZxB-%C 0 X2CCFile @1 does not exist.@1 xB-T C %  C C C  C C Cannot open xB-UWZSFNAME WZICODEPAGE WZIHANDLE WZACPCODES WZIDBFBYTEWZICPCODESBU_4 T C% <B-X C BaUCFILE NFILEREADYQ 5 T C]+C ?T C] B UWZSALIAS 4 5   T Cpathv G)(T CCCC ]f~CfFPC % CCf]'T CCCf]  %CCCCC&] 0 >CCCCC&] f.!%CCCf]C *T CCCf]C %CCCC&] 0>CCCC&] f-CfFPC >C&G)( BU WZSOLDNAME WZSJUSTPATHWZSPATHWZSTNAMETYPEPATH" 4 %C 0 "B-TC]5  T C % C Cannot open xB-T CC %C  C Cannot close x %    BaB-UWZSFNAME WZITYPEBYTE WZIHANDLET4   HM TABLE@ Bdbf QUERY% DESIGN} Bqpr Bfpq FORM Bscx REPORT Bfrx LABEL Blbx PROGRAM' Bprg CATALOGM BfpcUWZSTYPE WZSMETHOD` 4/   T C >T J-(   (  T C \T C % C C C C C C C C C C C C C C C C C C C x C C C C C C C C C C C C C C C C C C C  % % C C C C C C C C C C C C C C C C C C C b T a T -% C C C C C C C C C C C C C C C C C C C  T - T aT  % T  T  % T  T CO%  :> C =C XC \w>  C 6        % >  T  # J-(  % C C C C C C C C C C C C C C C C C C C _ T a% C C C C C C C C C C C C C C C C C C C  T a%   % 2T  T   %C T  T T  % T  ))T C % D6> C =CXC \ T   %C  T CO>  CC 6 C    C  % > C  # T T T T )T CC \>CCC \A>%  T> "C \    CC >D1T C >CCC C >=`>% 3 G> C C > =" CC >D"  "" BUAVLINELHSINGLELHDOUBLELVSINGLELVDOUBLENLEN NSTARTPOSNVPOSNHPOSNCTRNCURRECCCOLORPRNEWFILEEXPRCCHARNASCVALVPOSHPOSFILETYPE COLORPAIROBJTYPEOBJCODEHEIGHTWIDTH NLEADSPAC NTRAILSPAC34  (C$%C  >CC 6C  C  C] DOS% > C 3BU AVLINENCTRNEWFILEOBJTYPEOBJCODEVPOSHPOSHEIGHTWIDTHUNIQUEIDPLATFORMFILETYPE COLORPAIRG 4 5   %\ FT C  % _ C 9 T _ T " (CC > F5T C \,%C 9 _ C  T  _1T    B UWZSALIASICRETVAL4   H C; B  N\ BC g D} BC # LT  BC A B2 B BUCDATA CDATATYPE CTEMPEXPR4TC=% "']{TC%[wTC] BUCSTRINGCQUOTE4%  HTCC=+FTCC=CCC>CC\6T C  B UCTEXTCLPARENCRPAREN41%CC \9C \_  \T C _[ (C >D%CC \9CC \ C \_  T C _[ B UCTEXTJU4  #TCC*.*DB UCDIRADIRARRYIDIRCT>%C&Escape was pressed. Cancel conversion?x~%CgOPJXbOgCzB(UGOPJXERRORZFC:An error occurred in the Converter and it cannot continue.x TaB(UGERROR4   5    T CCC ]T C T  +a Hl 25  T CCC Z>:T C C  =_CC Z. f 3[ T CCC Z>:T C C  =_CC Z. f2l B%C 0T   H C fSCX%CC SCT0T  ! C fFRXY%CC FRT0IT  U! %CC FPT0T  !2! B U WZSBASENAME WZSEXTENSION WZLWITHMEMOWZIWZSPATHWZSSTEMWZIWIDTH WZSAUTONAMEq4   5    #T CC  6T CsafetyvG. +aF %37T CC@1CC C  JT CC@1CC *.C  C  %C *!%  HJ CATALOG  C FCT TABLE  C FPT C CDX QUERY  FORM/  C SCT REPORTi  C FRT LABEL  C LBT PROGRAM ! HB. CATALOGCC FCT0 ZC%CC exists. Overwrite it?@1C FCTШx V!, TABLECC FPT0 C%CC exists. Overwrite it?@1C FPTШx !+ FORMCC SCT0 GC%CC exists. Overwrite it?@1C SCTШx C!- REPORTCC FRT0 C%CC exists. Overwrite it?@1C FRTШx !, LABELCC LBT0 6C%CC exists. Overwrite it?@1C LBTШx 2!2B!set safety &wzsSafety B U WZSFTYPE WZSMETHOD WZLDELFILE WZSSAFETYWZSFNAME WZSPROMPT WZSSTRING C_SAVETO_LOCLOCWORDFILEEXTK_NO4  T C f H/ C e HMa TABLEsBTable QUERYBQuery FORMBScreen REPORTBReport LABEL BLabel PROGRAM7BProgram CATALOGaBCatalog Q HM TABLE B QUERY B FORM B REPORT  B LABEL* B PROGRAMM B  Hq FORM B REPORT B  LABEL B   H TABLE B  QUERY: B  FORMZ B  REPORT| B LABEL B PROGRAM BUWZSTYPE WZIVARIATION C_TABLE1_LOC C_QUERY1_LOC C_FORM1_LOC C_REPORT1_LOC C_LABEL1_LOCC_PROGRAM1_LOC C_FORM2_LOC C_REPORT2_LOC C_LABEL2_LOC C_TABLE3_LOC C_QUERY3_LOC C_FORM3_LOC C_REPORT3_LOC C_LABEL3_LOCC_PROGRAM3_LOC+ 4BCCgC>ZUCSTRING NDECIMALS4!TCC`C C C TCC  +C  ~TCC  C +C=C  TC\ BUCTEXTCTMP)BC  UD1D2D3) 4  T C >( T C \%C 9 C  .TCC \%CCTCTC%TCC\C>BUCTEXTALISTITEXTLENCCHARINEXTITEMGETITEM~ '      T C > ( eT C \%C 9C  . %  C C &!  ( "T C \!%  C C  !% ([aC  !BC =U CTEXTILINELOCQUOTEWORDN1LPARENCTITEXTLENCCHAR GETRPAREN   T C\&T C ()]6T !  ( T C \% '"[3'T C [] 6+T  C C \T C \%  P!% ([C  BUCTEXTILINELOCITEXTLENCCHARRPARENLPARENCTENDQUOTE GETRPARENQ %C4BaBRCUCFILEADIRINFOu 4:TCCRC3:\6 *.*6TCD(nd% CCVCX  ! CCSCX  DC . Hj DC/%C.C.. ].% #CCCC. RCBCCC` is read-only. It was not converted.x. HCSC xSCCC` is hidden or is a system file. It was not converted.x2j(T CCCC  T C  aN%C oConvObjectbOT aTB% NT a< TBTC < UCFILELRECURSEAFILESIIALENCTARGETLVCXLSCX UPDATESCXGOMASTER ACONVPARMSAPARMS OCONVOBJECTSCX30CONVERTERCLASS LHADERROR GRETURNVAL CONVERTERmemofind, memostuffg genproc getfirstlinewordnumykillcrmatch getparam3 iscomment isparameterx procsmatch isgenplatG! cleanparam! addprocnamex" getplatnum$ extractprocsO%emitproc) emitbracket-putproc/ updprocarray3 getprocnum8 cleanparam8 writeline9 hasconflictY; getarrange <stripextf> strippath?stripcr;@addbs@ justfnameqAjuststemBjustpathDjustextQE JustDriveE partialfname2FforceextUHCPCodessICPTagMEscHandOReadableOTmpAliasbPUpdPathsPDBTableRFileExt TCvtLinewUFixVert`GoodName_bEvalDatac StripQuoted StripParenneGoodNameZfIsDir\g EscHandlergFatalErrdhautonamehPutNamekLocWordqForceDecv CleanWhitevCHRTRANCwGetArraywGetItemEy GetRParen{ pReadOnly| UpdateSCXX}1rAA1A3AAAsAAA1AAAAAA1AAAQ!AAAAAA11AAq1AA1A1A72qaAR21aAAq1Ada1aA21AA1qAAAqA1R!qAq"qAA1AAqAAq8aaq2qAAAAB5VAqAqAqaAAA612A1!A1QAA5!AA5ba1QAaaA=qrCABa1Ac1AA&aAAAQAbAAQA=qAQrqrAq<A8UqA1qAAq:A9AA;AAAAA22Q!AA1AA=AA92qAQ1Aaq2AA22AqAaaq1AAAAA92bQArAAAAQABA9cBBBA"ABB9TbaAAAaAAAA#AAAA9aQA1b1Aa2QAaAAAAAA<AA8AA:AaQAAQAQAA:QAA7Q!Q!!AAAAAAB;qAQA5Qq1q1AA5A5QqA5ARaAQA5QaAQAQA5QQQ!rAA5!QA55A!AAqaqAA5ABAA325AAAAqq!!qaQAqAAA6B3tAqqA6!!!A4RQqAAAAAA2A3"qA21AqA!AqqA3AqA3vC11CAAAA#!1!ARAv1!AAA1AA2!A1AA1BdAR61AAAA1CA1rA"A5sR 1AAABA5QAAAaA!aqAA5AAAAAA4sr"Q!aAA5A"bA4srACAA4s25RaAA5ca5TA!BQQAAQAAQAAAAAA4R2rarAAAQQQqQQQAAA1AA1AA1AA1AA1AAAAA42qA1qA1qA1qAA63srA!A4q32AA11AaARAA3}3AAAAAAAAB"51qaqAQAAAAA5rrAb52rDBAAA2AA"2BAAqAArAA5*>~T$%%)R).w.//3.3fDl|DoH:}H=J]TJMoN~OOSShYYD[^[f*fmEmr,rg|Z|by(9?1LHde|Kc֘£ѥ =ϯR&j/Ʊx2'Ns\,v#"7-Cd^_l q~!wcd5 P5 ruWd  ! S &  o 8!' %+U-4       5gopjx%CTALKvONkG2T ONT OFFT C T -!%C gAShowMe[1,1]bL<   (CT aT T T T T T aT aT  - H 3)T ?T ? 5cT S㥛?T ˡE?2T @T ˡE? %3T HT  'T  'T `T  'T T qa@T @ %3wT XT  J(               ! " # $ % & ' ( ) * + , -.J( / 0 1J-( 2 3 4 5T 67 T 8-T 9T :T ;T <T =T >T ?T @T AT BT CT DT ET FT GT HT IT JT KT LT MT N %3>T OCourierT P T QT RT OCourierT P T QT R H< 5-T SC O P R$ '-T TC O P R$ ' 3<T S886@T T :@U %3 T VGenevaT W$@T XBTT YBT ZT [?T \GenevaT ] T ^TT _T V MS Sans SerifT W @T XBTT YBOT ZT [M?T \ MS Sans SerifT ] @T ^BTT _BO T `- %3# T aCourierT b P T aFoxfontT b T cT dT $ T e T fT gT hT iT jT k T l- T m- T na T oa T pa T q-T r T s-T tNT u?'','','','','','','','','','','','','','','',''T vT wT xT 6y z Tz(T {SCCC]@\.cdxT CERROR911DO errorhandler WITH MESSAGE(), LINENO(), "Fatal"%   W|6The Transporter cannot be run as a standalone program. ,FatalB }C}(~%C m.g_scrndbfbC T ,aInvalid screen/report name.T CC f H * C C. \SCX' %C 0 # +T CSCX Where is C * C C. \FRX %C 0  +T CFRX Where is C * C C. \LBX %C 0  +T CLBX Where is C * C C. \PJXh%C 0 d+T CPJX Where is C 2%C 0 KT CSCX|FRX|LBX|PJXSelect the file to transport Transport%C 0 C B-9Visual FoxPro Transporter: CC @ eT wC He C  T 6) C  !"T 6 C T 62T 6%CC 6 lT IC 6 T JC 6 T KC 6   H 5T I MS Sans SerifT JT KB 3T IGenevaT J T KN%C !"%C !TT ClT CT x%C H| C !T C  C 5+T C  C "4T C  C 6,gT C  F>R,:5You must convert this file to an .FRX file before youC 5can use it. Use the Catalog Manager to open the file,C 0or choose Convert dBASE files from the Run menu. a2|6|Unknown report format Fatal B%C T v H* C +, 53  T $DOST xC $T v Converting9) Converting CC @* C !5"6 53  YT $DOST xC $T v) Converting CC @+ Transporting CC @ e $3 C.9C.$ C.  24   H C T v2T $DOST xC $T v Converting92 C.9C.$ C.  53  T %CaT xC $T $DOS H %T v e $ %T v2T v$ C.OC.J C.K T %C- HX %T v% v F r e $ %T v2T v C.!%C2.57Gm(%C ZT vT $DOST xC $T v) Converting CC @ Converting9 C.5-R,:"The transporter has nothing to do.T v2?|Unknown or invalid file format (FatalT v B vU G_SCRNDBF TP_FILETYPEDUMMYGASHOWMEGOTHERM CREALNAMELPJXTALKSETPCOUNTGERRORICTR G_POPHGHTG_VPOPUP G_PIXELSIZE G_BANDHEIGHT G_BANDFUDGEG_MACBANDHEIGHTG_WINBANDHEIGHT G_CHECKMARKCURSORCONSOLBELLEXACTESCAPEONESCAPESAFETYFIXEDPRINTUNQSETUDFPARMS EXCLUSIVEONERROR TRBETWEENCOMPDEVICESTATUSG_FROMPLATFORMCHOICEG_FROMOBJONLYALIASG_BOXEDITEMSALIAS G_TEMPALIASMTOPICRBORDMCOLLATEMMACDESKFIELDS MFIELDSTODECI MEMOWIDTHCURRAREA G_CHAR2GRPH G_GRPH2CHAR G_GRPH2GRPH G_CHAR2CHAR G_TPFILEINDXSETALLG_LOOK2D G_FILETYPE G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE G_WINDFFACE G_WINDFSIZE G_WINDFSTYLEG_WINBTNHEIGHTG_MACBTNHEIGHT G_MACBTNFACE G_MACBTNSIZE G_MACBTNSTYLE G_WINBTNFACE G_WINBTNSIZE G_WINBTNSTYLE G_BTNHEIGHT G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_THERMFACE G_THERMSIZE G_THERMSTYLE G_RPTFFACE G_RPTFSIZE G_RPTFSTYLEG_RPTTXTFONTSTYLE G_RPTLINESIZE G_RPTCHARSIZESETCTRL G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_TDLGSTY1 G_TDLGSTY2 G_TDLGBTNG_SMFACEG_SMSIZE G_SMSTYLEG_SMSTY1 G_FONTSET G_FOXFONT G_FOXFSIZEG_NORMSTYLENUMG_BOLDSTYLENUM G_TOPLATFORM G_WINDHEIGHT G_WINDWIDTH G_THERMWIDTH G_MERCURY G_20ALIASG_STATUS G_ENERGIZE G_NOREPEAT G_ALLOBJECTS G_NEWOBJECTS G_SNIPPETS G_NEWOBJMODE G_SCRNALIAS G_UPDENVIRON G_TPSELCNT G_BOXSTRG G_RETURNCODE G_TOCODEPAGEG_FROMCODEPAGETPARRAYG_LASTOBJECTLINE G_TEMPINDEX ERRORHANDLER G_FONTAVAIL G_FONTMAP INITFONTMAPASSERT STRIPPATHCLEANUP PUTWINMSG SETVERSIONSETTOCPGETOLDREPORTTYPEGETOLDLABELTYPEDOUPDATE CVRT102FRX CVRTFBPRPT CVRT102LBX CVRTFBPLBLOPENDBF SETFROMCP STARTTHERM CONVERTERIMPORT SYNCHTIME CONVERTTYPE MAKECURSORVERSNUMARRANGEDOBJECTSYMBOLSDEVINFO4 T SCCC]@\FQ  %CN~"R,:No records to transportB-BaUFNAME G_SCRNALIASS 5 HA C !vT :T C'Convert 1.02 report file to 2.6 format? C 5+T OT C<Convert FoxBASE+/dBASE III report file to FoxPro 2.6 format? C "JT 9T C&Convert 1.02 label file to 2.6 format? C 6,T NT C;Convert FoxBASE+/dBASE III label file to FoxPro 2.6 format? C.9T 9T C&Convert 2.0 screen file to 2.6 format? C.$nT 9T C&Convert 2.0 report file to 2.6 format? C.B- C.!T :T C'Convert 2.0 project file to 2.6 format? F T a2A;Unknown doupdate operation tFatal B URESULT TP_FILETYPE G_FILETYPE STRUCTDIALOG ERRORHANDLER  4 5   %  )TFoxPro for MS-DOS/UNIX Hp C !5+T  C.9T  C.$T  C.T  C.!T q%C.OCT %CC Rf.LBXB-1 WINDOWS MAC    %C4T T T % |!- WINDOWS C %C4s#)- WINDOWS+ WINDOWS3#)o  C' T  T %  T C(  H' CDOSC 2 CT  + CWINDOWSC 5 T  ( CUNIXC 4 T  ' CMACC 3 T  < %   m-R,:"The transporter has nothing to do. B H BCSCX BCFRX BCLBX BUTWOOHIPCOUNT NPLATFORMS PLATFORMS TP_FILETYPE G_FILETYPE G_SCRNDBFOBJTYPEPLATFORMBOTTOM ISERRORMSGEXPRDISTINCT G_SCRNALIASAVAILPLATFORMSG_FROMPLATFORMCLEANUP SCXFRXDIALOG SETRPTFONT 4 H 58T WINDOWS 3VT MAC 4tT DOS 2T DOS2;Unknown Version of FoxPro. FatalUTO ERRORHANDLER H  5# B 39 B' 4N B 2d B2;Unknown Version of FoxPro. FatalU ERRORHANDLERq% `Ga+To and from platforms are the same in line CC 2Z`B%  C   T SCCC]@\+o C'   1 TC NOCPTRANSv Gm(  F S  !SET NOCPTRANS TO &cOldCPTrans F Q .dbf .fpt F % C   T aOT  WINDOWS MAC  DOS UNIX  RT  WINDOWS MAC " WINDOWS MAC  OT  DOS UNIX " WINDOWS MAC  LT  DOS UNIX  DOS UNIX  %T C H$f : P fBUG_FROMPLATFORM G_TOPLATFORMASSERT G_ALLOBJECTS EMPTYPLATFORM COLDCPTRANS G_TEMPALIAS G_SCRNALIASPLATFORMTAGTAG2 G_CHAR2GRPH G_GRPH2GRPH G_GRPH2CHAR G_CHAR2CHAR G_FILETYPE G_NOREPEATGETCHARSUPPRESS CHARTOGRAPHIC GRAPHICTOCHARGRAPHICTOGRAPHIC2% 5 Transporting +% TB Transporting T   + Transporting CC @ F %  %    % 'U G_ALLOBJECTS STARTTHERM G_FILETYPEALLGRAPHICTOCHAR SELECTOBJ G_MERCURYUPDTHERM PUTWINMSG STRIPPATH CREALNAME G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTSNEWGRAPHICTOCHAR2% 5 Transporting +% TB Transporting T   + Transporting CC @ F %  %    % 'U G_ALLOBJECTS STARTTHERM G_FILETYPEALLCHARTOGRAPHIC SELECTOBJ G_MERCURYUPDTHERM PUTWINMSG STRIPPATH CREALNAME G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTSNEWCHARTOGRAPHIC2% 5 Transporting +% TB Transporting T   + Transporting CC @ F %  %    % 'U G_ALLOBJECTS STARTTHERM G_FILETYPE ALLGRPHTOGRPH SELECTOBJ G_MERCURYUPDTHERM PUTWINMSG STRIPPATH CREALNAME G_SCRNALIAS G_SNIPPETS UPDATESCREEN UPDATEREPORT G_NEWOBJECTS NEWGRPHTOGRPH 5  ( % CT ( `T P  T SCCC]@\?o C'   C  &  F G-( -a F  T --   %C4NT C % m aZ~ C' <C        .IF &g_tempalias..timestamp > timestampj % (REPLACE name WITH &g_tempalias..name (REPLACE expr WITH &g_tempalias..expr *REPLACE STYLE WITH &g_tempalias..style %C   AREPLACE PICTURE WITH mapbutton(&g_tempalias..picture,PICTURE) .REPLACE PICTURE WITH &g_tempalias..picture #%   C `*REPLACE ORDER WITH &g_tempalias..order ,REPLACE unique WITH &g_tempalias..unique .REPLACE boxchar WITH &g_tempalias..boxchar 0REPLACE fillchar WITH &g_tempalias..fillchar &REPLACE TAG WITH &g_tempalias..tag (REPLACE tag2 WITH &g_tempalias..tag2 *REPLACE ruler WITH &g_tempalias..ruler 4REPLACE rulerlines WITH &g_tempalias..rulerlines (REPLACE grid WITH &g_tempalias..grid *REPLACE gridv WITH &g_tempalias..gridv *REPLACE gridh WITH &g_tempalias..gridh *REPLACE FLOAT WITH &g_tempalias..float *REPLACE CLOSE WITH &g_tempalias..close 0REPLACE MINIMIZE WITH &g_tempalias..minimize ,REPLACE BORDER WITH &g_tempalias..border ,REPLACE SHADOW WITH &g_tempalias..shadow ,REPLACE CENTER WITH &g_tempalias..center .REPLACE REFRESH WITH &g_tempalias..refresh 0REPLACE disabled WITH &g_tempalias..disabled 2REPLACE scrollbar WITH &g_tempalias..scrollbar 0REPLACE addalias WITH &g_tempalias..addalias &REPLACE TAB WITH &g_tempalias..tab 4REPLACE initialval WITH &g_tempalias..initialval 4REPLACE initialnum WITH &g_tempalias..initialnum .REPLACE spacing WITH &g_tempalias..spacing %   $>CCC"C' >D% .REPLACE objcode WITH &g_tempalias..objcode ,REPLACE lotype WITH &g_tempalias..lotype .REPLACE rangelo WITH &g_tempalias..rangelo ,REPLACE hitype WITH &g_tempalias..hitype .REPLACE rangehi WITH &g_tempalias..rangehi 0REPLACE whentype WITH &g_tempalias..whentype (REPLACE WHEN WITH &g_tempalias..when 2REPLACE validtype WITH &g_tempalias..validtype *REPLACE VALID WITH &g_tempalias..valid 2REPLACE errortype WITH &g_tempalias..errortype *REPLACE ERROR WITH &g_tempalias..error 0REPLACE messtype WITH &g_tempalias..messtype .REPLACE MESSAGE WITH &g_tempalias..message 0REPLACE showtype WITH &g_tempalias..showtype (REPLACE SHOW WITH &g_tempalias..show 2REPLACE activtype WITH &g_tempalias..activtype 0REPLACE ACTIVATE WITH &g_tempalias..activate 2REPLACE deacttype WITH &g_tempalias..deacttype 4REPLACE DEACTIVATE WITH &g_tempalias..deactivate 0REPLACE proctype WITH &g_tempalias..proctype 0REPLACE proccode WITH &g_tempalias..proccode 2REPLACE setuptype WITH &g_tempalias..setuptype 2REPLACE setupcode WITH &g_tempalias..setupcode 2REPLACE timestamp WITH &g_tempalias..timestamp > T C  _F   F Q F BU THERMSTEPPLATFORM G_TOPLATFORM G_NEWOBJECTS G_TEMPALIAS G_SCRNALIASG_FROMPLATFORM ISSELECTEDUNIQUEIDOBJTYPEOBJCODEIDSNIPONLY GETSNIPFLAG SETUPCODE UPDENVIRON G_GRPH2CHARORDERWIDTHEXPR G_MERCURYUPDTHERM 5 TC NOCPTRANSv ( % bT ( T P  T SCCC]@\?o  C' C  & F G-( -a F  Gm(  a~ a                   C'  .IF &g_tempalias..timestamp > timestamp (REPLACE name WITH &g_tempalias..name %   ;>Cf(REPLACE expr WITH &g_tempalias..expr *REPLACE STYLE WITH &g_tempalias..style .REPLACE PICTURE WITH &g_tempalias..picture *REPLACE ORDER WITH &g_tempalias..order ,REPLACE unique WITH &g_tempalias..unique .REPLACE ENVIRON WITH &g_tempalias..environ .REPLACE boxchar WITH &g_tempalias..boxchar 0REPLACE fillchar WITH &g_tempalias..fillchar &REPLACE TAG WITH &g_tempalias..tag (REPLACE tag2 WITH &g_tempalias..tag2 (REPLACE mode WITH &g_tempalias..mode *REPLACE ruler WITH &g_tempalias..ruler 4REPLACE rulerlines WITH &g_tempalias..rulerlines (REPLACE grid WITH &g_tempalias..grid *REPLACE gridv WITH &g_tempalias..gridv *REPLACE gridh WITH &g_tempalias..gridh *REPLACE FLOAT WITH &g_tempalias..float .REPLACE STRETCH WITH &g_tempalias..stretch 4REPLACE stretchtop WITH &g_tempalias..stretchtop &REPLACE TOP WITH &g_tempalias..top ,REPLACE BOTTOM WITH &g_tempalias..bottom .REPLACE suptype WITH &g_tempalias..suptype .REPLACE suprest WITH &g_tempalias..suprest 0REPLACE norepeat WITH &g_tempalias..norepeat 0REPLACE resetrpt WITH &g_tempalias..resetrpt 2REPLACE pagebreak WITH &g_tempalias..pagebreak 0REPLACE colbreak WITH &g_tempalias..colbreak 2REPLACE resetpage WITH &g_tempalias..resetpage .REPLACE GENERAL WITH &g_tempalias..general .REPLACE spacing WITH &g_tempalias..spacing ,REPLACE DOUBLE WITH &g_tempalias..double 4REPLACE swapheader WITH &g_tempalias..swapheader 4REPLACE swapfooter WITH &g_tempalias..swapfooter 4REPLACE ejectbefor WITH &g_tempalias..ejectbefor 4REPLACE ejectafter WITH &g_tempalias..ejectafter *REPLACE PLAIN WITH &g_tempalias..plain .REPLACE SUMMARY WITH &g_tempalias..summary 0REPLACE addalias WITH &g_tempalias..addalias ,REPLACE offset WITH &g_tempalias..offset 2REPLACE topmargin WITH &g_tempalias..topmargin 2REPLACE botmargin WITH &g_tempalias..botmargin 2REPLACE totaltype WITH &g_tempalias..totaltype 4REPLACE resettotal WITH &g_tempalias..resettotal ,REPLACE resoid WITH &g_tempalias..resoid ,REPLACE curpos WITH &g_tempalias..curpos 2REPLACE supalways WITH &g_tempalias..supalways 2REPLACE supovflow WITH &g_tempalias..supovflow 0REPLACE suprpcol WITH &g_tempalias..suprpcol 0REPLACE supgroup WITH &g_tempalias..supgroup 4REPLACE supvalchng WITH &g_tempalias..supvalchng .REPLACE supexpr WITH &g_tempalias..supexpr /%CuserbMC.userbM  (REPLACE user WITH &g_tempalias..user 2REPLACE timestamp WITH &g_tempalias..timestamp > %   M $>CCC"C' >D(%     T C  _F  !SET NOCPTRANS TO &cOldCPTrans F Q F BU THERMSTEP COLDCPTRANSPLATFORM G_TOPLATFORM G_NEWOBJECTS G_TEMPALIAS G_SCRNALIASG_FROMPLATFORM ISSELECTEDUNIQUEIDOBJTYPEOBJCODEIDTAGTAG2 UPDENVIRON G_GRPH2CHARNAMEWIDTHEXPRADJRPTSUPPRESS ADJRPTFLOAT TOTALTYPE ADJRPTRESET G_MERCURYUPDTHERM 4 %C C  C   ~  C ^_> % > C f> C f T aU MUSTEXIST ENVSELECT ISNEWERENV ISENVIRONOBJTYPEPLATFORM G_TOPLATFORMG_FROMPLATFORM G_GRPH2CHARTAGTAG2 G_UPDENVIRON 5 F S F ~C' ^T  <  F _ Hu" H%C &>CC C C [>CCC .Q[ s"0>CDOSC TF6C TF6CCC ZACCC ZACWINDOWSC TF6C TF6CCC ZACCC ZACMACC TF6C TF6CCC ZACCC ZA%C $(CC > 8/> C C C [> CC ]g > U I G_SCRNALIAS G_20ALIAS WASARRANGEDARRANGEDTYPEDEVINFOSCRNROWSCRNCOLSYMBOLSCKVAL TIMESTAMP5   T a F G((% D - F -   %C4T  T  T T  T  T   T SCCC]@\go C'   C  %   % T # T F % 0 F !    (  T C F T T ~+9%C    ^ F _>   H  C  !?% . " >#C#$>%C%&JT C %'C C($C C ($ DJT C #)C C($C C ($ D F T *C * _F + * F Q F % -   %C4%'  (>' C 6 %)    (>) C 6BU, THERMSTEP BANDCOUNT G_NEWOBJMODE G_SCRNALIAS G_CHAR2GRPH GETWINDFONT UPDENVIRONPLATFORM G_TOPLATFORMOBJTYPE WFONTFACEFONTFACE WFONTSIZEFONTSIZE WFONTSTYLE FONTSTYLE G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_TEMPALIASG_FROMPLATFORM ISSELECTEDUNIQUEIDOBJCODE G_SNIPPETS G_FILETYPENEWBANDSBANDSBANDINFO RIGHTMOST BOTTOMMOSTPLATFORMDEFAULTS FILLININFOADJBOX RPTOBJCONVERTVPOS FINDLIKEVPOSHPOS FINDLIKEHPOSWIDTH NUM2STYLEHEIGHT G_MERCURYUPDTHERM5   T a F G(( - T SCCC]@\o C'     C   C  C  %     % T # 4T F %  F !   (  T C F -a+C+ D%C    ^ F _>  % h}  >C>C F HT C  _F   F Q F !BU" THERMSTEP BANDCOUNT G_NEWOBJMODE G_SCRNALIAS UPDENVIRON G_TEMPALIASPLATFORMG_FROMPLATFORMOBJTYPEOBJCODE ISSELECTEDUNIQUEIDBLACKBOXFILLREDFILLBLUE FILLGREENFILLPAT G_TOPLATFORM G_SNIPPETS G_FILETYPENEWBANDSBANDSBANDINFOPLATFORMDEFAULTS FILLININFOADJHEIGHTANDWIDTH RPTOBJCONVERTVPOS FINDLIKEVPOSHPOS FINDLIKEHPOS G_MERCURYUPDTHERM MAKECHARFIT5   T aT  F G(( - T SCCC]@\go C'   C %     % T #  T F %  F !    (  T C F -a+C+ D%C      {^ F _> % >S  >C>C F HT C  _F   F Q F BU THERMSTEP BANDCOUNT G_NEWOBJMODE G_BANDFUDGE G_SCRNALIAS UPDENVIRON G_TEMPALIASPLATFORMG_FROMPLATFORM ISSELECTEDUNIQUEIDOBJTYPEOBJCODE G_TOPLATFORM G_SNIPPETS G_FILETYPENEWBANDSBANDSBANDINFOPLATFORMDEFAULTS FILLININFOADJHEIGHTANDWIDTH RPTOBJCONVERTVPOS FINDLIKEVPOSHPOS FINDLIKEHPOS G_MERCURYUPDTHERMF5   ~ ?^ F -    HT -    (_>    H| "T     T  |"T    %3 x!T    'T C  % *T  ?  'Z>  *      F UPREVBAND BANDSTART BANDHEIGHTOBJTYPE G_SCRNALIASPLATFORMG_FROMPLATFORMUNIQUEID G_TOPLATFORM RPTOBJCONVERT G_CHAR2GRPHHEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE G_GRPH2CHAR G_GRPH2GRPHOBJCODEBANDPOSALLVPOSFOR G_TEMPALIAS5 5  T SCCC]@\o COQC'          C     C  C T  P  H4 T A             F Q F BUOBJINDEX ALLENVIRONSG_FROMOBJONLYALIASRECNUM G_SCRNALIASPLATFORMG_FROMPLATFORMOBJTYPEBLACKBOXFILLREDFILLBLUE FILLGREENFILLPAT G_FILETYPEEXPR OKTRANSPORTCOMMENT ALLOTHERS ALLGROUPS G_TOPLATFORMOBJCODE RPTCONVERTMERGELABELOBJECTS LINESBETWEEN MAKECHARFITSUPPRESSBLANKLINES 5  T SCCC]@\o COQC'            C  C T  %  F Q F B      HU  F G-  F G((  T C _F  % % &-   %C4{% CT ?T  C%  T  ?% Z4> C C$C!"C$#$ w> C%T C _F   F Q F U&OBJINDEX ALLENVIRONSG_FROMOBJONLYALIASRECNUM G_SCRNALIASPLATFORMG_FROMPLATFORMOBJTYPE G_FILETYPEEXPR OKTRANSPORTCOMMENT OBJECTPOS ALLOTHERS ALLGROUPSCALCWINDOWDIMENSIONSADJITEMSINBOXES ADJINVBTNS JOINLINES RPTCONVERTSUPPRESSBLANKLINESADDGRAPHICALLABELGROUPS LABELBANDS LABELLINES G_MERCURYUPDTHERM G_ALLOBJECTS G_TOPLATFORMSTYLE G_WINDHEIGHTG_LASTOBJECTLINE ADJUSTMENTHEIGHTFONTFACEFONTSIZE NUM2STYLE FONTSTYLESTRETCHLINESTOBORDERS 5  T SCCC]@\o COQC'            C  C T   P   H a 4 N a F Q F BUOBJINDEX ALLENVIRONSG_FROMOBJONLYALIASRECNUM G_SCRNALIASPLATFORMG_FROMPLATFORMOBJTYPE G_FILETYPEEXPR OKTRANSPORTCOMMENT ALLOTHERS ALLGROUPS RPTCONVERTMERGELABELOBJECTS LINESBETWEEN 4  5  T CWFholdN N CC N  N  N  N  N N N N N N N N N CN N N N N T C T C TMPT C  %   +C  T C T C "\+C   C  C  Ծѿ%C 0  M>C\+"C\+"C\+"J>C\+C\+C\+ Ծѿ"newF~; H7  HF#F>#$DOS>#>#%5>#& >#' >#  >#  >#(%>#)a#%  >#*a#%  D>#+a .F#F>#$DOS>#>#, >#- ># >#  %>#.a/>#/"C 1 2C0" 2F#F>#$DOS>#>#, >#- >#  >#  >#%%>#.a%.>#3C  2 F#F>#$DOS>#>#, >#- ># >#  %>#/C 1 2C`0%C )/>#"C 1 2C0">#4>#5%v>#6a%T7CDT7%7>#8a#%   >#.a>#9C 7 F#F>#$DOS># >#%#>#/C 1 20>#  %  >#:a% >#;a%3 >#<aFQ%  T C TBK= ( F# ( Q F  B U=FNAME102FTYPEBAKNAMEIN_AREAOLDOBJTYPECONTENT FLDCONTENT FRMCONTENTVERTPOSHORZPOSHEIGHTWIDTHFONTFONTSIZESTYLEPENREDPENGREENPENBLUEFILLRED FILLGREENFILLBLUEPICTURERANGEUPRANGELOWVALIDINITCCALCEXPFPINOUTNAMEFPOUTBUFALLFORDOCREATENEWPLATFORMOBJCODE TOPMARGIN BOTMARGINOFFSETENVIRON EJECTBEFOR EJECTAFTERVPOSHPOSFLOATEXPRCPTRANS G_TOCODEPAGEG_FROMCODEPAGEBOXCHAR TOTALTYPE RESETTOTALNOREPEATWRAPSTRETCHFILLCHAR PAGEBREAK SWAPHEADER SWAPFOOTER4  5                     T CWFT T T T T T T T T T T T T T T T T   7  7         TT C %  D#Could not open FoxBASE+ report form A FatalT CC TCC (7!T CC (7B!T CC TC (:!TCC C TC TC !TCC !TCC !TCC TCC T CC T CC TCC T CC TCC T!CC T"CC T#CC T$CC T C T%C T&C T'CC (T)CC  C %) C *new+,-%$1.F/#)>015% +T C TBK= ( F/ ( Q F  B U2FNAMEFBPFTYPEBAKNAMEIN_AREAIIDBYTEOBJNAMEOBJRP_POOLRP_LTADRRP_LTLEN RP_SSEXNO RP_SBEXNO RP_DOUBLESP RP_FLDS_WIDTHRP_FLDS_EXPRNORP_WIDTHRP_FLDS_HEADNORP_PLAIN BAND_ROWS CURRENT_ROW GROUP_NUMHEAD_ROW RP_FLDS_TYPERP_FLDS_TOTALS RP_FLDS_DP G_SCRNDBF ERRORHANDLERCVTSHORTPOOLSIZE RP_PGHDNO RP_SBHDNO RP_SSHDNO RP_LENGTHRP_LMARGRP_RMARG RP_FLDCNT RP_SUMMARY RP_SUBEJECTRP_OTHERCVTBYTE RP_PAGENODOCREATEEVALIMPORTEXPR INITBANDS BLDBREAKS BLDDETAILNEWOBJTYPEOBJCODE4  Q5             T CWT  T C C T C <T CC T CC T CC T CC T CC T CC T CC T C   C  T T  ( g %C  \C c)T C    \T  T  +  T T  hnewNNMMMN NN N N NLMuniqueLMMLF>#>C ! "  > > > > > >  ( >'>C ! "C  % T C TBK= ( F ( Q F  B BU#FNAME102FTYPEISHORTCONTLENOBJREMARKSHEIGHTLMARGINWIDTH NUMACROSS SPACESBETLINESBETBAKNAMEIN_AREALBLNAMECVTSHORTWORKLBLLINESSTARTCURLENNEWOBJTYPEOBJCODENAMEEXPRSTYLEENVIRONORDERTAGTAG2ADDALIASCPTRANS G_TOCODEPAGEG_FROMCODEPAGEU4  E5           T CWT  T T T T T T T C C T C <T CC T CC T CC T CC T CC T CC  T""T  ( T <T C  /+ C  \  gT  C  \n[%T C  \%CC T ""T   C hnewNNMMMNNNNNNLMuniqueLMMLF>#>C  > > > > > >  ( >'>C  C % +T !C TBK= ( !F ( Q F  B U"FNAMEFBPFTYPEWIDTHHEIGHTLMARGIN SPACESBETLINESBET NUMACROSSOBJILBLNAMEIN_AREADUMMYREMARKSCVTSHORTLBLLINESLASTLINEOLENWORKNEWOBJTYPEOBJCODENAMEEXPRSTYLEENVIRONORDERTAGTAG2ADDALIASCPTRANS G_TOCODEPAGEG_FROMCODEPAGEBAKNAME>DOS> > > >aT T %Y > a%C >-%C >a%C 9>aT T T T % T  T %C  T C T   %C4T CT   QT   -T %C  d%Y  T a T -  T  %C  ` -T   T T %Y !T  -%C"T T T # $( M -- -% 6%  PAGE NO. C&O'_PAGENOC& C--N'DATE()C&D--T (T (%C  cT  ;T ) +a_%C ) *O1%C )> ) (CC )>+T ( ([!T ( (BU,NEWPLATFORMWIDTHRP_WIDTHHEIGHT RP_LENGTHOFFSETRP_LMARG EJECTBEFORRP_PLAIN GROUP_NUM RP_SUMMARYSUMMARYRP_OTHER EJECTAFTERPLAIN RP_TOTALS CURRENT_ROWBANDSIZESTRING GETLITEXPR RP_PGHDNOSIZELINESFORHEADINGFLD_HEAD_EXISTHOWMANYHEADINGSMAKEBAND BANDSTRING RP_SBEXNO RP_SUBEJECTNEWPAGE RP_SSEXNONUMLINES RP_DOUBLESP TOTALS_EXISTGROUPNUMIMAKETEXT BAND_ROWS MAKEFIELDHEAD_ROWHEADING GETHEADING CENTER_COL4     5 T C  T   TC >%   C  PC     C--BU EXPRNOHEADNOROWSTARSSTRING GETLITEXPRSTRLENMAKETEXT MAKEFIELDRP_LTLEN%C|&C** %Cx$C*BULITEXIST RP_SBEXNO BLDBREAKEXP RP_SBHDNO BAND_ROWS RP_SSEXNO RP_SSHDNO35        T T T T CT  ( #%CC   3T C%% C  K4T C C  %C  G!MC    C aa%YC /OC  C N--% % K C C  * Subsubtotal *N C C  ** Subtotal **J C C  ** Subtotal **T #%CC   iT  ;T T   +ae%C  U%C N%T  C C >T  )C >   T  a! T  C % 6  *** Total ***CBUIPG_ROWISTOTALFCOLROWSTRINGCOLHEADING BAND_ROWS RP_FLDCNT GETLITEXPRRP_FLDS_EXPRNO RP_FLDS_WIDTHRP_WIDTH MAKEFIELD RP_FLDS_TYPERP_FLDS_TOTALS GROUP_NUMADDTOTALRP_FLDS_HEADNOHROWHEAD_ROW GETHEADINGMAKETEXT-4       % j)C >  F    N-- BU ISFIRSTROWCOLWTWORKSTRTOTALSTRRESETMAKETEXT MAKEFIELD 4 5 T % q'%CC \mT  B UIDXFLAGRP_POOLRP_LTADR4  T %C {5T C C C \T T  B UIDXSTRINGFLAGLITEXISTRP_POOLRP_LTADRRP_LTLEN4    >DOS> > #>C  > > %C T  T   BUTYPESIZESTRINGNEWPAGENEWPLATFORMOBJTYPEOBJCODEEXPRCPTRANS G_TOCODEPAGEG_FROMCODEPAGEHEIGHT PAGEBREAK BAND_ROWS CURRENT_ROW4% >DOS->"C "> > > >>BUWTHTSTRINGROWCOLNEWPLATFORMEXPRCPTRANS G_TOCODEPAGEG_FROMCODEPAGEOBJTYPEHEIGHTWIDTHVPOSHPOS3?4          > DOS> #> C   >  >  >  >  >  >  >  >  >  BUWTHTSTRINGROWCOLFLDCHARSTRCHFLTTOTALRESETNEWPLATFORMOBJTYPEEXPRCPTRANS G_TOCODEPAGEG_FROMCODEPAGEHEIGHTWIDTHVPOSHPOSFILLCHARSTRETCHFLOAT TOTALTYPE RESETTOTAL4  5   T T C; T C  \T C  \%C >T %C >T  B UHEADINGSTRINGFLAGX 4 5   T  ;T T  +a%C  T  ! B USTRINGRETVALSTRING2HEADING GETHEADING5   T  ( %C T C T C  D B URETVALINEWVAL RP_FLDCNT GETLITEXPRRP_FLDS_HEADNOSTRINGLINESFORHEADING5  T  ( m%CC iT ! B UFLAGI RP_FLDCNTLITEXISTRP_FLDS_HEADNO|5  T  ( j%YC fT ! B UFLAGI RP_FLDCNTRP_FLDS_TOTALS5 4 )BC     DULENGTHRP_WIDTHRP_LMARGRP_RMARG5T (%CCTC b%UCTCBUSTRINGI RP_FLDCNT GETLITEXPRRP_FLDS_EXPRNO RP_FLDS_TYPE5    T  T C %T CC  Hzq  H !T 5 T +2T +2qC T C %C fDBASE IVTT FmT   C  B UFP REPTOTALSRETCODETAG TP_FILETYPE G_SCRNDBFCVTSHORT5   T  T C %T CC T C  H   H "T 6 T ,2T ,2C T C %C fDBASE IVdT F}T   C  B UFP REPTOTALSRETCODE TP_FILETYPE G_SCRNDBFCVTBYTEDUMMYTAG 4!5     "T C C = H[ T C .BMPT C .bmp .BMPC f H5, C R"C R' !T C C >;[25T  ;'T C .BMP; .BMPbrlfq'T C .bmp; .BMPbrlfq#T C ; .BMPbrlfqT C brlfq;/+C R;"C R;' $T C C >[%%B  @  )T C C@ B[T  B H  B ! C; C; %  B   B  B ! C; C; %B T C" % BC  ;NEW.BMP[B ; B 2 B       T (C T C C % 3T  CC ;6C  3T  CC ;6C  )T C C = " B U FROMBTNTOBTNENDPOSOUTSTRGTOPOSIPICTCLAU G_GRPH2CHAR G_CHAR2GRPH FROMARRAYTOARRAYSCATTERBUTTONS 45    "T C C \"T C C" C' T C;   (  H "T C C; =  5'T C C;  \2PT C C;  C;  C;  \T CC fBUBTNLIST DESTARRAYIFROMSTRGNUMTHEWORD 4 5   T COT  P-    0C    %C4T -    %C4T  #  B U OLDVPOSOBJIDSAVERECRETVALPLATFORMG_FROMPLATFORMVPOSOBJTYPEUNIQUEID G_TOPLATFORM 4 5   T COT  P-    0C    %C4T -    %C4T  #  B U OLDHPOSOBJIDSAVERECRETVALPLATFORMG_FROMPLATFORMHPOSOBJTYPEUNIQUEID G_TOPLATFORM5  T CC wT CC w-  %C4% >  %   > BU RIGHTBOTTOM GETRIGHTMOST G_TOPLATFORM GETLOWESTPLATFORMOBJTYPEWIDTHHEIGHT G_FILETYPE 5 a~ C' C       hT CO^_> %C  > C f> C f*%   YT  T  H1G K   Hk e>  <P  > B >P G H,C u>a  --a- C >>Qk+@' > ' >Qk+@' % ? >P  # T !C !_F " !BU#RECNOPLATFORMG_FROMPLATFORMOBJTYPE G_FILETYPEFIXPEN G_TOPLATFORM ISENVIRON G_GRPH2CHARTAGTAG2 G_WINDHEIGHTHEIGHT G_WINDWIDTHWIDTHADJCOLOR G_CHAR2GRPHVPOSRULER RULERLINESGRIDVGRIDHPENREDPENGREENPENBLUEGRID STRETCHTOPTOPBOTTOMCURPOSHPOS ADJOBJCODEADJFONT G_MERCURYUPDTHERM_ 4 5    T   F G-( -aT ~C' TT CO ^%   T   F _ % B(>  F  # T C  _F  BU THERMPARTRECNO NUMOTHERS THERMSTEPIOBJINDEXG_FROMOBJONLYALIASRECNUM G_SCRNALIASFIXPEN G_CHAR2GRPH CALCPOSITIONSGERRORPLATFORM G_TOPLATFORM FILLININFO G_MERCURYUPDTHERMe% ! H2 AC%34C    C   % >CC >CC  H= >  C= % N9 > Z H]V !>CD C D "> N $ >!>CD C D% > C  k>C.BMP>C.bmp8 $C    3> CC CD   %> CV %R>Cf C%34C    C   % >CC >CC  H   H" 3   J> 0 5!C??  >  > %5 C % d > % .!"#% Z$BU% G_FILETYPEADJRPTSUPPRESS ADJRPTFLOAT G_CHAR2GRPHOBJTYPEOBJCODEG_LOOK2DPICTUREADDQUOTEMAKE2DMAKE3DWIDTH ADJRPTRESETFILLCHAROFFSET G_GRPH2CHARHEIGHTPENSIZEBOXCHAR OBJ2BASEFONT G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLEFONTFACEFONTSIZE NUM2STYLE FONTSTYLENAME G_GRPH2GRPHG_WINBTNHEIGHTG_MACBTNHEIGHT G_POPHGHTPENPATADJPENADJCOLORADJFONTADJHEIGHTANDWIDTH H   H)$   n >a >- >-   >a >- >-  >a >- >-  H    ' >a >a J >a >- m >- >-   >a >-BU G_CHAR2GRPHFLOATOBJTYPEHEIGHT STRETCHTOPTOPBOTTOMSTRETCH G_GRPH2CHAR H  >% ;> : % >a >- Hs  > >  > >2 >>6 >a >- >- > > %  >a%>% > > >-BU G_CHAR2GRPHOBJTYPENOREPEAT SUPVALCHNG SUPOVFLOWRESETRPTSUPRPCOLSUPGROUP SUPALWAYS G_GRPH2CHAR  H   H)~ G > e >2~>  H  >   >2>BU G_CHAR2GRPH RESETTOTAL G_GRPH2CHARF-  %C40 B?B-UPLATFORMG_FROMPLATFORMOBJTYPENOREPEATG 5 H@ !  ( % -  %C4 >a @*~    < T %R T C % %> 8 >-USUPCOUNT G_GRPH2CHARPLATFORMG_FROMPLATFORMOBJTYPE G_TOPLATFORMNOREPEAT G_CHAR2GRPHMYEXPREXPRBCODE GETBANDCODEVPOS G_NOREPEAT 4 5   T   F ~   T CO^_> # T C _F  U THERMPARTRECNO NUMOTHERS THERMSTEPOBJINDEX G_SCRNALIASPLATFORMG_FROMPLATFORMOBJTYPE G_TOPLATFORM G_MERCURYUPDTHERM 5 . C   ( % [T  xT 2 ~    T C  _F  !   ( #) T C % 6 ,~ C %    T C  _F  U THERMSTEPPLATFORM G_TOPLATFORM ISREPTOBJECTOBJTYPE G_GRPH2CHAR RPTOBJCONVERT G_MERCURYUPDTHERM BANDCOUNTBANDSBANDINFO G_CHAR2GRPH CLONEBAND G_GRPH2GRPH 4 -5       % j %3 fB H{   HQ C  > 2QT C;% C ??  4 >M>C w Hb >'  >CD>C' T2T T %   " T C  'T CCC D>C  9%  C    =T CC     6 %  %T   C % o*T C ??DT C !>C  >C>C>C>C H5 X%  T>C 5!%  CT  >CT>CT>CT>CT=%  %C C  %C Y >C >C >C  H   >  >C!>    >%CT1 >-%C C )>C C %  >% >BU" BANDCOUNT BANDINDEXENDINDEX POSINBANDSAVERECOBJIDORIGVPOS LINEHEIGHT G_GRPH2GRPH GRPHRPTCVT G_NEWOBJMODEOBJTYPE G_CHAR2GRPH EMPTYBANDUNIQUEIDHEIGHTCVTREPORTVERTICAL G_GRPH2CHAROBJCODEWIDTHOFFSETVPOS ORIGHEIGHTADJBOXADJCOLORADJFONT GETBANDINDEXBANDS ENDINBANDHPOSCVTREPORTHORIZONTAL CVTRPTLINESADJTEXTEXPR4   5  ( B% C " C C   B  B UVPOS BANDCOUNTLOOPBANDSgE5           T T T T T T T ~    T   Hw T   3T   UT   wT  T   HI .T       T  I.T     T  T  T CO%C 5-      #)C     C CO  ( #)1-     C T +C4   T   %C4T   Hi T  9:T C MAC  6 i!T  T  C % CT CC C C &T T T  C  # % {>C %  U %   %T C 3T C C %T C 3T C C &-      %C4&-      %C4>C C T   %   Q3T C C 3T C C &-      %C4&-      %C4&>C C T   B USAVEREC BANDCOUNTLOOP PAGEFOOTER PAGEHEADER COLHEADER COLFOOTER TOPOSITION FROMPOSITIONOBJCODEEXPRPLATFORM G_TOPLATFORMOBJTYPEBANDS G_CHAR2GRPHHEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE G_GRPH2CHAR G_GRPH2GRPHG_FROMPLATFORMSEQIG_MACBANDHEIGHTG_WINBANDHEIGHT RESIZEBAND?5          % T CWT CO#)&-     %C4 BT CO5~      ^T CO#  COT T T T T _?>      #  F #C CNFBUIN_AREAIN_RECPIVOTOUNIQIDOVPOSOHPOSOWIDTHOHEIGHTOOBJCODEHEADBAND G_CHAR2GRPHPLATFORM G_TOPLATFORMOBJTYPEOBJCODEUNIQUEIDVPOSHPOSHEIGHT4 5T COT  % C~       T C C DT C D #  BC wU TOBANDHEIGHT FMBANDVPOS FMBANDHEIGHTIN_REC MINBANDHEIGHT G_GRPH2CHARPLATFORMG_FROMPLATFORMOBJTYPEVPOSHEIGHTCVTREPORTVERTICAL4  5  T COT ~   % &% DOS DOS T  (T     -- #  B U OBJIDPLATFORMSAVEREC BANDSTARTOBJTYPEUNIQUEIDHEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE 4 5    &% DOS DOS QB-T CO T --    %C4T  T C  ]- *            %C4  #)O-  C         T C4  #  B UIDSAVEREC BANDSTART BANDHEIGHTRETVAL G_TOPLATFORMPLATFORMG_FROMPLATFORMUNIQUEIDHEIGHTBANDPOSOBJTYPEVPOS G_CHAR2GRPH* 4 5  TT COT %C k BG(    #)+  C+  %    T !T   HG( #  BU THISVPOSIN_NUMRETCODE STARTVPOSOBJTYPEPLATFORM G_TOPLATFORMHEIGHT G_BANDHEIGHTOBJCODEV 5 % O H)K 5\%X>C 3K Hu >C >`H %    GT CWINDOWS%  ,> ?'U BANDNUM G_FILETYPEOBJTYPEWIDTH GETTEXTWIDTHEXPR G_NEWOBJMODE GETBANDNUMVPOSHEIGHTY4  5    T  T -T T CO)~     T  % $T    %   T aT   # % @ B R BU THEVPOSTHEPLATBANDNOPASTCUMVPOSTHERECPLATFORMOBJTYPEHEIGHT G_BANDHEIGHT G_BANDFUDGE G_PIXELSIZE 4 T CCC 긛%C ="TT C \%C R"!T C C >\<BC C#CC$'  USTRGEXPRFONTFACEFONTSIZE NUM2STYLE FONTSTYLE G_PIXELSIZE 4 Hy 9B '  fB   2y B UUNITS G_GRPH2CHAR G_CHAR2GRPH G_RPTLINESIZE G_PIXELSIZE{ 4 Ht AB ' Qk+@ aB 2t B UUNITS G_GRPH2CHAR G_CHAR2GRPH G_RPTCHARSIZE 4 %3.T  H`  H?  HY C ȫy Bh C X B C XR BR2 B 2 B UHEIGHT G_CHAR2GRPH%  & CZCZH~ C' *     COBU G_GRPH2GRPHPLATFORMVPOSHPOSTEMP G_TOPLATFORMOBJTYPE LABELOBJMERGE0 4 35        T CO # T T T T  T /- C'     %C4>,  # : >  # U RECNOSAVERECVPOSHPOSWIDTHHEIGHTEXPRTYPEPICTUREFILLCHARPLATFORM G_TOPLATFORMOBJTYPE5   Co m.g_scrnaliasC'    T  T  (C %C >  >> BU LINECOUNTLASTSCANLOOPVPOS G_SCRNALIASPLATFORM G_TOPLATFORMOBJTYPELINES5  %  !  ( &-    %C4  T  > -  %C4> U LINECOUNT BLANKLINES G_GRPH2GRPHPLATFORM G_TOPLATFORMOBJTYPEOBJCODEHEIGHTPENBLUE5   &-    %C4VT -  %C4 Hh 3 1/2" x 15/16" x 1   #       3T O@T T   h 3 1/2" x 15/16" x 2   #       T O@T @T   h 3 1/2" x 15/16" x 3   #       T O@T @T   t 3 2/10" x 11/12" x 3 (Cheshire)           FT UUUUU@T @@T   c 3" x 5 Rolodex   2       T PT T   e 4" x 1 7/16" x 1   (       T @T T   g 4" x 2 1/4 Rolodex   (        +T @T T   l 6 1/2" x 3 5/8 Envelope   A       T @@T T   l 9 7/8" x 7 1/8 Envelope   N       T  e@T T   2T  (T C  6T  B-  %C4x%> C  6> > > &-    %C4> U LBXHEIGHTLBXWIDTH LBXLINESBETPLATFORMG_FROMPLATFORMOBJTYPEOBJCODEHEIGHTNAMEPENBLUEWIDTHVPOSHPOS G_RPTLINESIZE G_RPTCHARSIZE G_TOPLATFORM-5       !   ( T -  T oF@-   % T  -   T  T &~   C' > C >  >>   >> > >C >- >- > > > >a > >a >- > > >- !T C R;+ NT COH%+   C' H%   )T  # > > T C R;J #  T -T  T "C " _F # "U$ BANDSTART LINECOUNT THERMSTEPLBXWIDTHSAVERECNEXTEXPRLOOPPLATFORM G_TOPLATFORMOBJTYPEWIDTHG_FROMPLATFORM G_RPTCHARSIZEEXPROBJCODEVPOS G_RPTLINESIZEHPOSHEIGHTFILLCHARFLOATSTRETCHSPACINGOFFSET TOTALTYPETOP RESETTOTAL SUPALWAYS SUPOVFLOWSUPRPCOLSUPGROUP SUPVALCHNGADJFONTADJCOLOR G_MERCURYUPDTHERM 4 -5       !T  !T  T  T T -T  T T T  %T COT  T  T  =-        %C4|T a +C4x%C  (T T  =-        =-        %C4yT a +C4u%C  %T T  =-         # %C #T  &T   UINDEXRECORDVERTHORIZWIDTH NUMOTHERS THERMSTEPI OBJECTPOSHPOS G_WINDWIDTHVPOS G_WINDHEIGHTUNIQUEIDOBJTYPESPACINGPICTUREVERT1ENDPOS['5       F G-  F &    F G-(   F T   C!J(    T    ( %C  |T   J(  T C %  H( C    V%CC   $#T C;C  T S㥛? CT S㥛?T L C     C    E1%C  CC   #T C;C  T ʡE? 2T ʡE?T L C     C    T ?T T C  _F  T   -  %C4P>  BUICURLINE LARGESTOBJ LINEHEIGHTADJWINDOWWIDTH THERMSTEPG_FROMOBJONLYALIAS G_SCRNALIASUNIQUEIDPLATFORM G_TEMPINDEX G_TOPLATFORM ADJWINDWIDTHFINDWIDEROBJECTS OBJECTPOS ADJHEIGHTOBJINDEX HORIZBUTTONNUMITEMS G_MERCURYUPDTHERMOBJTYPEWIDTH REPOOBJECTSHEIGHT 4 E5           T  C J(   T - ( %C  T  T -T C   HZ0 C   C    #T C;C  T C  %CC  :T C  C   T a T -T C  2Z T -T C  T C  -    %C4p% &T   T L%  4CC\ CC\  lT  2%C C C C  h0%C      dY CC  C  C  C  6T   T  %C  ` T a>  T C  _F  BUADJWINDOWWIDTHCURCOLADJCOLIRIGHTALIGNFLAGNUMITEMS OLDUNIQUEIDOLDWIDTH BUTTONFLAGNEWWIDTHADJUST THERMSTEPOBJINDEX OBJECTPOS HORIZBUTTONUNIQUEIDPLATFORM G_TOPLATFORMWIDTHSPACINGOBJTYPEEXPRSGNADJHPOSHPOS G_MERCURYUPDTHERM+4   F !~    EREPLACE &g_scrnalias..hpos WITH &g_scrnalias..hpos + m.adjustment L~       GREPLACE &g_scrnalias..width WITH &g_scrnalias..width + m.adjustment  F U ADJUSTMENTPOSITIONG_FROMOBJONLYALIASPLATFORMG_FROMPLATFORMHPOSOBJTYPEHEIGHTWIDTH G_SCRNALIASj4 Hc . B H B  c BUNUMj 4 -5       T COT T  J(    ( X%C  C% T  ʡE?T  T   J( T C  %- C   %C4+4TCC C   #> C   %C  -$T  C  #>C   6 H>' C  r>? C   >?>? C   %CC   T S㥛? C   z% ʡE? ]T ʡE?>ʡE? C  >ʡE? C  >C D>C?D C  '  T C  _F   # U WINDHEIGHT WINDWIDTH THERMSTEP RIGHTALIGNSAVERECADJUST BUTTONADJUSTNUMRBWIDTHOBJINDEXI OBJECTPOSCURLINEPLATFORM G_TOPLATFORMUNIQUEIDG_LASTOBJECTLINEGETLASTOBJECTLINEVPOSHPOSHEIGHT HORIZBUTTONG_VPOPUPADJBOX G_MERCURYUPDTHERM5    F (~  *J(9J(J-(   7      % C ]T   T a T -r T -0TC ?0TC ?VT CC ?  ?64T C? F T -    %C4  > CC> CC#>C C#>C C"%  C  T  T   F  F USUBFLAGEMPTYBOX NEWLASTLINE BOXDIMENSIONG_FROMOBJONLYALIASOBJTYPEHEIGHTWIDTH SHRINKBOX ITEMSINBOXESVPOSHPOSG_LASTOBJECTLINEFLAGG_VPOPUP G_SCRNALIASTHISIDUNIQUEIDPLATFORM G_TOPLATFORM '4      !5     T CO T SCCC]@\o           PC>CCC\ CCC\  J(  %  G-(  -a T -+C+ D 4% C   C  fT *boxdimension[1,2] = &g_scrnalias..vpos %M T ab T -% C T *boxdimension[2,2] = &g_scrnalias..hpos  H< 3    %  T -#%C    T  ;m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height %  ]m.twidth = TXTWIDTH(&g_scrnalias..expr,g_dfltfface,g_dfltfsize,num2style(g_boldstylenum)) C"m.twidth = &g_scrnalias..width <IF &g_scrnalias..hpos + m.twidth > boxdimension[4,2]!T 5boxdimension[4,2] = &g_scrnalias..hpos + m.twidth '     T C;%C1%  T -"%C   % >REPLACE &g_scrnalias..vpos WITH &g_scrnalias..vpos - 0.312 T  ;m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height 0%  C-8T C boxdimension[4,2] = &g_scrnalias..hpos + getobjwidth(&g_scrnalias..objtype, &g_scrnalias..picture, &g_scrnalias..width, &g_scrnalias..spacing, m.g_toplatform)  T -.%    -T    _m.newbottom = &g_scrnalias..vpos + m.numitems + (&g_scrnalias..spacing * (m.numitems -1))  % C!T Bboxdimension[4,2] = &g_scrnalias..hpos + &g_scrnalias..width   %  b &%C    3 T  ;m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height +T C  a-6 % C !T @boxdimension[4,2] = &g_scrnalias..hpos + &g_scrnalias..width '    < %   T -#%C     T  ;m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height  % C8 !T @boxdimension[4,2] = &g_scrnalias..hpos + &g_scrnalias..width H T -T T  T aQ F  # BU TOPLEFTBOTTOMRIGHTEMPTYBOX SHRINKBOXREC WASAPOPUP OLDBOTTOM NEWBOTTOMTWIDTHG_BOXEDITEMSALIASVPOSHPOSHEIGHTWIDTHUNIQUEIDSPACINGOBJTYPEPICTUREPLATFORMG_FROMOBJONLYALIASEXPRCPTCOND G_TOPLATFORM G_SCRNALIAS BOXDIMENSIONFINDOTHERSONLINE G_CHAR2GRPHNUMITEMS HORIZBUTTON GETOBJWIDTH(4    5   T  T -T COF-   '     %C4  #  B  +C4  H  % | T aT  ;m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height #  B   T aT  ;m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height T 6       T aT  ;m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height T 2 T aT ;m.newbottom = &g_scrnalias..vpos + &g_scrnalias..height  #  B U LINENO NEWBOTTOM OLDBOTTOMCURTYPESAVERECPREVTYPEFLAGOBJTYPEVPOSHEIGHT 5                              T COT T !   ( T   ~    T C"!T #T $T %T &T 'T C;"T (!J(    )   (  GT C  )    6T   GT C ,     6T   QJ() ) ) ) TJ() ) ) ) T)  }~ *        #  #%  $  $&  T (*T) CC )#F*T) CC )$F.T) CC )#%D.T) CC )$&DLT)  C  )CCC  )>(,(6- * (  %C4ST) CC )C   #?#6FST) CC )C   $?$6F[T) CC )C   #%?#%6D[T) CC )C   $&?$&6D-  (  ,%C )C ) `'T C )C )T  T C ) T  C ),%C )C ) 'T C )C )T  T C ) T  C ) %    - * (  %C4 % >#C ) >$C ) 2>%C )C )  2>&C )C )  %  &   T & %' % ' >''  T  ' >'1T C $ & 'DT C   DJ+##%       (  +CC  )> !%C,C  ) 2T CC  )C,C  )=>T)  CC  )C,C  )\N T C  )T)  -  (  %C4 !T $  - * (  %C4 :>$C    ? 6- *  %C4 % l >&& %&   >& T ,C , _F - ,-  (  % CN #  --U.SAVERECLOOP HORIZONTALBTNIDOBJIDFLAG THERMSTEPLEFTMOSTLABELBTNVPOSBTNHPOSBTNWIDTH BTNHEIGHT BTNSPACINGBTNCOUNTYBTNVBTNXBTNHBTNDEFWIDTH DEFWIDTHINDEX DEFHEIGHTDEFHEIGHTINDEX TOPMARGIN BOTTOMMARGIN LEFTMARGIN RIGHTMARGIN ADJUSTMENT TOTADJUSTNEWHPOSPLATFORMG_FROMPLATFORMOBJTYPE HORIZBUTTONPICTUREVPOSHPOSHEIGHTWIDTHSPACINGUNIQUEIDSIZES G_TOPLATFORM ADJPOSTINV G_MERCURYUPDTHERM4    5  T CO T C T C  ~     a                   T -    %C4a> -    % CN # --UYSTARTYENDXSTART ADJUSTMENTSAVERECSAVEID FINDALIGNENDPLATFORMG_FROMPLATFORMHPOSVPOSOBJTYPEC_LISTC_POPUPUNIQUEID G_TOPLATFORM74   5    T  .~    %T COT  T  -    a                   +C45T C  C  F C  D6T   -    a                    #  B UYSTARTXSTART INCREMENTSAVERECYTEMPXTEMPRESULTPLATFORMG_FROMPLATFORMHPOSVPOSOBJTYPEC_LISTC_POPUP|'5       %   KBT CO-   %C4@%   T  T  T  T  Z~   8          <T COT T  -   %C4-T  T  -    %C4)%  > %>  # % CN^--q # BUSAVERECOBJIDOBJRECOBJWIDTH FROMHEIGHT FROMWIDTH G_FILETYPEPLATFORMG_FROMPLATFORMOBJTYPEBORDERSTYLEHEIGHTWIDTHVPOSHPOSUNIQUEID G_TOPLATFORMTOHEIGHTTOWIDTHO5                           T T CO8     ( % 5T   dT !C ! _F " !6~     ST #T $T  T T  T %T CO- & %  %C4T #T $T  T ,~  %  A%   # #   _T   (% $ $ F+'      (% $ $ +'      (% $ $ 1'      ,% $ $ [1'      A%  $ $  T  (% # #   %(     (% # #  ]%(     (% # #  +(     ,% # #  +(     T !C ! _F " ! # )*T    ( U+CCC =gCCC RgC C T !C ! _F " !% CN1--D # BU,SAVEREC JOINCOUNTLINERECLINEIDI THERMSTEPOBJVPOSOBJHPOSOBJRIGHT OBJBOTTOMOBJIDOBJRECOBJCODEFROMVPOSFROMHPOS FROMHEIGHT FROMWIDTHFROMENDFROMCODETOVPOSTOHPOSTOHEIGHTTOWIDTHJOINVPOSJOINHPOSVLEVELHLEVELJOINSPLATFORMG_FROMPLATFORMOBJTYPEWIDTHHEIGHT G_MERCURYUPDTHERMVPOSHPOSUNIQUEID G_TOPLATFORMJOINHORIZONTAL JOINVERTICAL MEETBOXCHAR ZAPBOXCHAR REJOINBOXES'4      -5       T  T T T  T  T T CO-    %C4s Hx$   %t(T  ?  J(  % ,T  ?C a 0T  ?C a J(  2x.T  ?C a T !T C6 %   ,T ?C - 0T ?C - +      %  o+       # BUFROMVPOSOLDHPOS1OLDHPOS2TOVPOS TOTHICKNESSFROMCODEOBJVPOSOBJHPOSOBJRIGHT OBJBOTTOMOBJCODEOBJIDOBJRECVPOSHPOSWIDTHHEIGHTUNIQUEIDPLATFORM G_TOPLATFORMOBJTYPEJOINVPOSVLEVELHLEVEL GETLINEWIDTHJOINHPOSADDJOIN!4     -5       T  T  T  T  T  T T CO-    %C4r Hw$     %s-T C   6J(   %  ,T  ?C - 0T  ?C - J(  2w.T  ?C - !T C6T  %  ,T  ?C a 0T  ?C a +      % n+       # UOLDVPOS1OLDVPOS2FROMHPOSTOHPOSFROMCODEOBJVPOSOBJHPOSOBJRIGHT OBJBOTTOMOBJCODEOBJIDOBJRECVPOSHPOSWIDTHHEIGHTUNIQUEIDPLATFORM G_TOPLATFORMOBJTYPEJOINHPOSVLEVELHLEVEL GETLINEWIDTHJOINVPOSADDJOIN$-5       T COp~   C > CCC \ CCC \ T  T  T T CO-    %C4T  T  6~     %   H '      1    %   HG '      1     # % CN-- # BUSAVERECFROMVPOSFROMHPOSTOVPOSTOHPOSJOINRECJOINIDPLATFORMG_FROMPLATFORMOBJTYPEEXPRCPTCONDVPOSHPOSUNIQUEID G_TOPLATFORMWIDTHHEIGHTADDJOIN5   T CO1~  CCO q>" " >% CN#CNH # BU RECNOFROMVPOSFROMHPOSPLATFORM G_TOPLATFORMOBJTYPEBOXJOINEXPRMODE!'4      5  !T C ZC ZT C % =T   T  T  T  T  T  T C % C T  T  % C T  T  BU FROMVPOSFROMHPOSTOVPOSTOHPOSVMATCHHMATCHROWKEYJOINS JOINCOUNT4    '5      T CO~   s%  oT T T CO H`+     -    %C4T #T C a &> ?  > ,> ?C - +    -    %C4T  #T C - &> ?  > ,> ?C a 4     -    %C4#T C a +> ?  ,> ?C - 4     `-    %C4\#T C - +> ?  ,> ?C a  # % CN-- # BUFROMVPOSFROMHPOSTOVPOSTOHPOS OBJECTCODEOBJEND SAVERECNOOBJID JOINWIDTHOBJRECPLATFORMG_FROMPLATFORMOBJTYPEWIDTHHEIGHTUNIQUEIDOBJCODEVPOSHPOS G_TOPLATFORM JOINLINEWIDTH GETLINEWIDTH4    5   T COT ,~     Hn   -C C   !     T CCa Do    -C C    !    T CC- D% ,~    }%   -C C   -C C    !T CC  D #  B UJOINVPOSJOINHPOS HORIZONTALSKIPIDI SAVERECNO THICKNESSPLATFORMG_FROMPLATFORMOBJTYPEUNIQUEIDWIDTHVPOSHEIGHTHPOS GETLINEWIDTHOBJCODEl4  5   H+e  % T  B B '     %C  %  T  B B T C; T    F%         0T   B  B  b% KT  B^ B  % T B B '    R% ;T BN B 2e B U CURRENTLASTLINE NEWPOSITIONNUMITEMSMAXOBJTYPEVPOSG_LASTOBJECTLINEHEIGHT HORIZBUTTONPICTURESPACING} H v*    X!>C ?56  v >UOBJTYPE G_FILETYPEOBJCODE% {#)-  %C4C wT T T C BU G_CHAR2GRPHPLATFORM G_TOPLATFORMOBJTYPEFONTFACE G_DFLTFFACE G_DFLTFSIZEFONTSIZE G_DFLTFSTYLE NUM2STYLE FONTSTYLEE5           HR T CO-  %C4T T T T  T  T   # ;T C  C $CC$ AT C  C $C  C $ *T  C  C $ T     T CO-  %C4@T T T {T  T  T   #  Hp : H6 T ,>CCC>\C# 6#T CC TT T C> T C ! H >!!  > "  >!!  >"C D>C D #   HX  T ?>CC$C$>\CXC#  >"!rh?  % >">C$&   H. hT %>"!rh?  >"!>'CC' T3>CC$&C D  H >" ( T "> C "  D>" >C  )>" (  k Hg >" * X% >"!>'CC' T3>CC$&C D )g 4 H0 >""? 0%C+ >" !>"CC" D!>CC D  p% l ,K% 9 0C    >!C!D> C DBU- TXTWIDTHRATIO BOLDTXTRATIO CHKBOXWIDTHSAVERECOLDWIDTH NEWHEIGHTNEWWIDTHWNDFACEWNDSIZEWNDSTYLE ALIGNMENT G_CHAR2GRPHPLATFORM G_TOPLATFORMOBJTYPEFONTFACEFONTSIZE FONTSTYLE G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE NUM2STYLEG_BOLDSTYLENUM G_GRPH2CHARG_FROMPLATFORM G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLEWIDTHEXPRDOSSIZECOLUMNARVPOSHPOSHEIGHTADJTEXTPICTURE ADJBITMAPCTRL MAXBTNWIDTHSPACING G_POPHGHT G_GRPH2GRPH G_BTNHEIGHTOBJCODEADJBOX$4     5 T COC-      C   %C4 #  BM-       C   %C4 #  B #  BU VPOSHPOSTYPEOTYPESAVERECPLATFORMG_FROMPLATFORMOBJTYPEWIDTH04   B   USIZEOBJSIZESCRNSIZE5    T CCC \%CB T C BT CCC \T +C >%C; T C C >=T A"T C C; ="T C C; \%C >rT CC #T  ;CC >   "BUFUNCTION OLDPICTURE NEWPICTURETEMPPICTURE STRIPPATHJ H ? j)%   C W%  >>>>>>>S > > >%   > > >O > > >f  ?% ; H7  H| %  >  > & >  >  Q >  > | >  >   aC  "%  0>C/C"%N/N C`/  >27 > BU G_CHAR2GRPH G_FILETYPE COLORPAIRPENREDPENGREENPENBLUEFILLRED FILLGREENFILLBLUEOBJTYPECONVERTCOLORPAIR G_GRPH2CHARSTYLESCHEMESCHEME2RGBTOX'4    5 -%    T B-%     BW3%3     BWT C  TT C  TT C  T'T  d    HV t BW+  BN o BN+  BR+ d BR   BGR+ n' BGR E BG+ b BG  BBG+   BBG  BB+   BB  BRB+ e BRB BUREDBLUEGREENCOLOR%  H T > > >2 > > >BU G_CHAR2GRPHOBJTYPEPENSIZEPENPATFILLPAT?5    T T T C HZ4  4 H0 . H* > > >C  C2*> > >C  C   %C > > >C  C 5%C 1> > )%     >->C  %C > > >  o Hk"    > > >  C k/C   3> > >C  T HP"    > > >  C P/C   3> > >C 20 Hi,"    > > >  C ,/C   3> > >C BUIOUTFACEOUTSIZEOUTSTYLEFONTFACEFONTSIZE NUM2STYLE FONTSTYLE G_CHAR2GRPH G_GRPH2GRPHOBJTYPE G_FONTSET G_DFLTFFACE G_DFLTFSIZE STYLE2NUM G_DFLTFSTYLE COMMONFONT G_WINDFFACE G_WINDFSIZE G_WINDFSTYLE G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE G_FILETYPESTYLEG_NORMSTYLENUMG_BOLDSTYLENUMMAPFONTV 4 T CC f5BC ARIAL COURIER NEWTIMES NEW ROMANUTHEFONT!5     .T CCCC/=-*/, f>>>%W ">C+ 6">C+ 6">C+ 6%N 2 > > >%R l">C+ 6%G ">C+ 6%B ">C+ 6>C 6>C 6>C 61T CCCC/\-*/, f> > >  H# W W+ 2"> C+ 6"> C+ 6"> C+ 6# N N+ | >  >  > 0 R  G  B  %R "> C+ 6%G "> C+ 6%B V"> C+ 6> C   6> C   6> C   6BU OLDSCHEMERGBVALUECOMMAFRGBKG COLORPAIRPENREDPENGREENPENBLUEFILLRED FILLGREENFILLBLUE4  5  T C, :T C C,  \ B U RGBSTRING OCCURENCECOMMAVALUE 4 !5      H7 C m.stylenumbC` B  C T T BIUOSCE- (<T CT%  T  C \% 8T C GT  (C >-T  C C > \ B 2 BUSTYLENUMISTRGPOW STYLECHARSOUTSTRG\ 4 5  T CC f H:U Cm.strgbNF` B  C DT  (C >5 H1 C \BT   C \I T   C \U<T   C \OmT   C \ST   C \CT    C \ET  @ C \-1T   B 2U BUSTRGNUMI 4 5 -%CC    CBT CO^!T C C >\T CC $>"C  =">C> H9 "@J">  "@I"9>  T C  \T CC >CD+ /T  C   6_> C @> C]$>"C  =">C> H4 "@J"b>  "@I">  T C  \T CC >CD%CC >/T  C   6_> C @> C]>" ">C> H "@J">  "@I">  >CD # BUOLDWIDTHSAVERECOBJTYPEEXPR G_GRPH2CHARPOSWIDTHPICTUREHPOSVPOSSPACINGHEIGHTPLATFORMUNIQUEID 4 H  H2 P > n >2 > H 2>Ca">? %  > >  >  >  > > C-"> ?  %  > >  >  >  >2.>?Ca  .> ?C-  >Ca> C- >  >  >% % > > % >C (>  H9 W > u >2 > HA       >? >A        i> ? > 2>?> ?>?> ?BUADJUST G_CHAR2GRPHOBJCODEPENSIZEHEIGHT GETLINEWIDTHVPOS G_FILETYPESTYLEPENPATFILLPATOBJTYPEWIDTHHPOSBORDER G_GRPH2CHARFILLCHAR4  %53  H. % /BCC 6   $ .BCC 6  B$  L% /BCC 6   $ H.BCC 6  B$ 2% /BCC 6   $ .BCC 6  B$  BUOBJCODE HORIZONTAL G_FILETYPE G_RPTFFACE G_RPTFSIZEG_RPTTXTFONTSTYLE G_DFLTFFACE G_DFLTFSIZE_ 4 9%C; CHC C = IBaXB-U PICTCLAUSE4    5  T T C C \T C \\T C \<T C \!T C \?+C >%C; 8$T CC C; ="T C C; \o T CC C >=T  H   *T C C    #D T C C >D B U PICTUREFACESIZESTYLEMAXLABEL G_CHAR2GRPH G_GRPH2GRPH G_GRPH2CHAR+!4      5  H7$             B -      oT C; "%C   ? B k$B    F   " MAC WINDOWS   B B    DOS DOS  B 2$ B UOBJTYPEPICTUREWIDTHSPACINGPLATFORMNUMITEMS HORIZBUTTON*!4      5  H7#             B -      nT C; !%C   > B j$B    F   " MAC WINDOWS   B B    DOS DOS  B 2# B UOBJTYPEPICTUREHEIGHTSPACINGPLATFORMNUMITEMS HORIZBUTTON 4 5 T ~ C'                 1T C C D B U PLATFORMRIGHTOBJTYPEHPOS GETOBJWIDTHPICTUREWIDTHSPACING G_TOPLATFORM 4 5 T ~ C'                 1T C C D B U PLATFORMBOTTOMOBJTYPEVPOS GETOBJHEIGHTPICTUREHEIGHTSPACING G_TOPLATFORM% 4   H  h CC N NNMMN N N N N MMuniqueLMLCCMMNNNNNNNNNMN N!N"N#N$L%N&N'N(N)C*N+M,N-M.N/M0N1M2N3M4N5M6N7M8N9M:N;M<N=M>N?M@LALBLCNDLELFLGLHLILJLKMLNMNNL   h CC N NNMMN  N  N  N  M MMuniqueLMLCCMMNNNNNNNNNMN N!N"N#N$L%N&N@LOLPLQLRLSNTNULVNWLXLYLZNMN[L\L]L^L_L`LaLILbNcNdNeNfNgNNLhLiLjNkNlLmMnM  7h MCN oMpMqNrLsLtMuLvLwLxLyLzL{L|L}L~LMLLLNNNMMMMNBUNAMETYPEPLATFORMUNIQUEID TIMESTAMPOBJTYPEOBJCODEEXPRVPOSHPOSHEIGHTWIDTHSTYLEPICTUREORDERCOMMENTENVIRONBOXCHARFILLCHARTAGTAG2PENREDPENGREENPENBLUEFILLRED FILLGREENFILLBLUEPENSIZEPENPATFILLPATFONTFACE FONTSTYLEFONTSIZEMODERULER RULERLINESGRIDGRIDVGRIDHSCHEMESCHEME2 COLORPAIRLOTYPERANGELOHITYPERANGEHIWHENTYPEWHEN VALIDTYPEVALID ERRORTYPEERRORMESSTYPEMESSAGESHOWTYPESHOW ACTIVTYPEACTIVATE DEACTTYPE DEACTIVATEPROCTYPEPROCCODE SETUPTYPE SETUPCODEFLOATCLOSEMINIMIZEBORDERSHADOWCENTERREFRESHDISABLED SCROLLBARADDALIASTAB INITIALVAL INITIALNUMSPACINGCURPOSSTRETCH STRETCHTOPTOPBOTTOMSUPTYPESUPRESTNOREPEATRESETRPT PAGEBREAKCOLBREAK RESETPAGEGENERALDOUBLE SWAPHEADER SWAPFOOTER EJECTBEFOR EJECTAFTERPLAINSUMMARYOFFSET TOPMARGIN BOTMARGIN TOTALTYPE RESETTOTALRESOID SUPALWAYS SUPOVFLOWSUPRPCOLSUPGROUP SUPVALCHNGSUPEXPRUSEROUTFILEHOMEDIRSETIDEXCLUDEMAINPROGARRANGEDSAVECODEDEFNAME OPENFILES CLOSEFILESDEFWINDSRELWINDS READCYCLE MULTREADSNOLOCKMODAL ASSOCWINDSDEBUGENCRYPTNOLOGO SCRNORDER CMNTSTYLEOBJREVCOMMANDSDEVINFOSYMBOLSOBJECTCKVAL5    TC NOCPTRANSv T SCCC]@\  T CDELETEDvG )%CtagbCCtag2bC  Gm(  )%CtagbCCtag2bC L#)%C H F #)T  F #)> !SET NOCPTRANS TO &cOldCPTrans SET DELETED &in_del T  T  U TEMP20ALIASIN_DEL COLDCPTRANSCTAG2DOCREATE G_FILETYPETAGTAG2 G_SCRNDBF G_SCRNALIAS G_20ALIAS% -  %C48B > > > >- >- >-> > C] > > > >- >- >-> > C] > > > >- >- >-> > C] > > > >- >- >-> > C]U G_CHAR2GRPHOBJTYPEOBJCODEHEIGHT PAGEBREAKCOLBREAK RESETPAGEPLATFORM G_TOPLATFORMUNIQUEID!4      > >>  > - > - > -- %C4> > > > U LBXNUMACROSS LBXLMARGIN LBXSPACESBET LBXLINESBET LBXHEIGHTADDGRAPHICALLABELGROUPSOBJTYPEOBJCODEHEIGHT PAGEBREAKCOLBREAK RESETPAGEVPOSHPOSPENBLUE 4 % J>C]> > %  > > >a > >  U TIMESTAMPUNIQUEIDPLATFORMG_FROMPLATFORM G_CHAR2GRPHRULER RULERLINESGRIDGRIDVGRIDHU'5       H4 - %C4T T  T  T  T   H %      BT C~G  U LBXNUMACROSS LBXLMARGIN LBXSPACESBET LBXLINESBET LBXHEIGHT TIMESTAMP G_FILETYPEOBJTYPE NUMACROSSLMARGIN SPACESBETLINESBETHEIGHT MAKECURSORUPDATELABELDATACONVERTPROJECTSTAMPVALPLATFORMDEFAULTS UPDATEVERSIONu-DOS %C4n H5j U >?2j >5UPLATFORMOBJTYPE G_FILETYPEOBJCODE4   5 -  %C4T -  %C4> UCONVERTEDPLATFORM MATCHPLATFORM TIMESTAMPPLATFORMOBJTYPE5  -T CC$%CCC$HCCC$i AT CCCC^RgCCCC^\gCCCC^=g BC  UDATEVALTIMEVALSHIFTLSHIFTRZ4   5  ( HT   B UVALUETIMESLOOP\4   5  ( JT C  8 B UVALUETIMESLOOP 4 5  F %%C.9C.$ C. JBa ( % ~B-BaUPLATFORMCOUNT G_SCRNALIAS 4 5     H1 ZT screen  T report  T label  T project 2T T < H  5, C Ba 3L C Ba 53 %Ctstructd  %3T (rs,t @  A B' ConverterT v*M@rs,t @  A B' Converter z,%Ctstructd t, t,7T C  $C  $ | C  #  @  A X9v?C  #  +N/@ @  A +@Zd;@@*HT3 \!\,AT  %C >,=T C #CC > #CC > J  @*HT \@b -@  A !rh?vE@@*C3 ,All Objects -- Replace Existing Definitions.*C% Cb/ BBBB @  A @*RV Ask for each file;Don't ask for C PJXSCXFRX \ files;Don't ask for any files5$T CT s,@  A B'Visual FoxPro Transporter z,%CtransdlgS t,d t,C SCX Screen File:1C FRX Report File: Label File:66@  A ?'@RCC  @@  A ?6@'There are objects in this file defined C for a platform other than C .@ ! "A $-I%By transporting this file, you createC C  definitions for these objects. @ ! "A $-nITransport Objects From:@  A %?<@p?* @  A (@?@*VNTM C;\?Cancel*Cu?* @  A (@ʡE?@*VNM Font...*C% SCXc"T?( @  A @*C3 2D Controls*C 'T @^3 C Ql'  @  A S㥛?h|?U8@ % 1$Cl' ?( BBBB @  A @*RV Ask for each file;Don't ask for C PJXSCXFRX \ files;Don't ask for any files 24 ~-!T FoxPro for Windows3% LBXCDOS CDOS  *T  T -\s,CC 8CCC 8(CC 8CCC 8B N%Ctransdlg7% t,H% t, (4SC & Screen File: Report File:6 *CC  fM&There are objects in this file defined&H!for a platform other than MS-DOS.!> Transport Objects From:&T @^ C 6 N  j- @*VNT &\!Transport & Open;Open As Is;\?Cancel*C0  Transport T  a@*C Objects New to C *CX  a"@*C Objects More Recently Modified*CNThan C  Equivalent Objectsf -/@*C ,All Objects -- Replace Existing Definitions.*C?for objects in the file.J#By transporting this file, you add,#L%update, or replace MS-DOS definitions%%Ctransdlg *t,z-T \s,CC 8CCD 8(CC 8CCD 8C N%Ctransdlg* t,* t,SC & Screen File: Report File:6 *CC  fM&There are objects in this file defined&H!for a platform other than MS-DOS.!>Transport Objects From:&T @^ C 6  N  _- @*VNT \!Transport & Open;\?Cancel*CL%By transporting this file, you create%QMS-DOS definitions for these objects. %%Ctransdlg v-t,2-8'Unknown FoxPro version. #FatalB-%C  (@.%Ctransdlg .t,+ <."9*C )%C+C*v/T C  (%CC  ( . T ,aT -C  (T .C  (T /C  (%CC  ( /T C  (T C (T C (T C  ( C<,%C (5 H/5 1 H/1 0T( aT(   0T( -T(  T(  T(  T(  T(    100(C(1T(0-T(0 T(0 T(0 T(0 T(0   B   3 H13 (2T( aT(   2T( -T(  T(  T(  T(  T(    300(C(3T(0-T(0 T(0 T(0 T(0 T(0   B25 H35 '4T( aT(  4T( -T( T(  T(  T(    500(C(}5T(0-T(0T(0 T(0 T(0   B6 H5 6 C(5 B& C(  5 B2 6 BBU1FTYPECHOICE FROMPLATFORMDLGNUMGNSHOWME HASRECORDSDFLTPLAT G_ALLOBJECTSTRANSDLG G_TDLGFACE G_TDLGSIZE G_TDLGSTY1 G_TDLGSTYLE STRIPPATH CREALNAME VERSIONCAP G_TOPLATFORMTHEPICTMAKEPICT G_NEWOBJECTSSCRNCTRL G_SNIPPETS TRANSPRMPTPVALID G_ASKFONTASKFONTLPJX G_TPFILEINDX IFORMWIDTH IFORMHEIGHT G_TDLGBTNG_LOOK2DSETCTRLG_SMFACEG_SMSIZEG_SMSTY1 G_SMSTYLE G_TDLGSTY2 G_FILETYPE ERRORHANDLERGASHOWMERDVALIDDEACCLAUSHOWCLAU G_FONTSET G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLEICTR 5 H CWINDOWS5 V!T FoxPro for Windows CMAC3 #T FoxPro for Macintosh CDOS2 %T FoxPro for MS-DOS/UNIX2!T FoxPro for Windows B UPLAT HASRECORDS>45   T T T T T  T - ( , H C  HS CDOS T  \  S%T FoxPro for MS-DOS/UNIX T a+T  FoxPro for MS-DOS/UNIX C ? H CWINDOWS T  \  !T FoxPro for Windows T a'T  FoxPro for Windows C  Hd CMAC T  \  #T FoxPro for Macintosh T a)T  FoxPro for Macintosh,T  C   ;6 B U ABCDFLTITEMIPICTSTRGA_PLATSLOOPTOP FOUND_DFLT HASRECORDSTCC^= H 3BB\! TransportO CC$) 23 24 CEnergizeCTRANSPRT5  TaBEnergize2B\! TransportUHOUR G_ENERGIZE4<%C      {%C5Transporting All Objects will overwrite all existing C  object definitions in the file.xB-BaUDLGNUMGASHOWME G_TPFILEINDX G_ALLOBJECTSCHOICE VERSIONCAP G_TOPLATFORMBaUq% B%aa < M 6T Than C  Equivalent Objects %X   HT 5< B 3 3$C 8RGB(0,0,0,255,255,255) X C 8 @  A ?>@3 3$C 8RGB(0,0,0,255,255,255) )p B @  A ?>@2T# C     H 5  3K @  A ?@@2  % - - Q j U DLGNUM G_SNIPPETS G_NEWOBJECTS G_ALLOBJECTS THESTRING VERSIONCAP G_TOPLATFORM G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_TDLGSTY1CHOICEBaUJ% %  C  U G_ALLOBJECTS G_NEWOBJECTS G_SNIPPETS H  CDOS :T DOS CWINDOWS oT WINDOWS CMAC T MAC CUNIX T UNIXU FROMPLATFORMG_FROMPLATFORM 4 H E screen:  r report:   label: UVERBFILETYPEACTTHERM 4 !5      %3iT GenevaT  T T  MS Sans SerifT T B %3T :T C ]T \%%C   #(T C ' T --+C ...   #(T C C >= T a% T  ... B UFNAME ADDELIPSE G_PATHSEP G_THERMFFACE G_THERMFSIZE G_THERMFSTYLE PARTIALFNAME4  5   T ...  %3j"T C C: \T C  H C > T   C >C > T  2&T C C >C >D %3a8T CC C: \ =  'T CC =   B UFILNAMEFILLENBNAMEELIPSEREMAIN G_PATHSEPRETSTR 4 5 B H# 5]T C @T C %C thermomete `s,p??@  A  B z, t,/ @  A / @  A @ B(??@ B(p@b B(";@N B(N*?@b? B(N?@"; B(";*?@纉 B(纉??@? B(p?@?U B(";?U@?U< B(N?U<@?U B(?U<@";?U B(";?U<T On"L@ 3\ T C @T C %C thermomete s,CC{Gz@C $CC&C&C&$  8CC ףp=O@C $CC&C&C&$  8縞z?@  A  B z, t, %C: F B(縞z?D@ B(z?@ B(縞@b煫 B(:煫@\O煫 B(\O+?@b? B(\O?@:煫 B(:+?@= B(=z?@煫? B(縞煫?@zT B(:zT@zT< B(\OzT<@zT B(zT<@:zT B(:zT<V !(縞z?C!:n(cff?CT B @  A T B @  A T (\•L@ %C: O )zT(: p= ף @ ,) 24  <T CC ]0\CC >0 ...6%C thermomete  Xs,CC 8CC9 8(CC 8CC9 89 N t,T 2 C f*@ 2,1 TO 4,m.g_thermwidth+4 &g_boxstrg ,)BU TEXTPROMPT G_SCRNDBF THERMFNAME THERMOMETE G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE G_THERMWIDTH G_THERMFACE G_THERMSIZE G_THERMSTYLE 4 5  %CgOThermbOOCCC DdFB% dyT d%  T %C thermomete  t,T  d   H 5`T?U B("; Dl @D 3TzT B(: p= ף @D2C QBUPERCENTNBLOCKSGOTHERMUPDATEACTTHERM THERMOMETE G_THERMWIDTH,%C thermomete!<,BU THERMOMETES4  %C,RON ERROR &onerror T  G&( HiL MinorT  Serious  T ON ERROR &onerror  FatalLON ERROR &onerror   T T  aUMSGLINENUMERRCODEG_STATUSCLEANUPERRSHOW CLEANWIND G_RETURNCODE(%CtransdlgCtransdlg 0<,&%Clblwind Clblwind b<,&%Cmsgscrn Cmsgscrn <,,%C ThermometeC Thermomete <,(%CtpselectCtpselect <,UTRANSDLGLBLWINDMSGSCRN THERMOMETETPSELECT4   5  H%f 5Qs,p??@  A 'Transporter Error z, t,6T C ,\CC >, ...6$CC # )T  Line Number: CC ZA$CC # 3T $Press any key to cleanup and exit...$CC # 3Qs,p??@  A 'Transporter Error z, t,6T C ,\CC >, ...6$CC # )T  Line Number: CC ZA$CC # 3T $Press any key to cleanup and exit...$CC # 2f]s,CC 8CC2 8(CC 8CC2 82 Nȿ t,6T C ,\CC >, ...6#CC > 'T  Line Number: C Z#CC > 3T $Press any key to cleanup and exit...#CC > T CCURSORvG],CM7<,SET CURSOR &curcursor UMSGLINENO CURCURSORALERT G_TDLGFACE G_TDLGSIZE G_TDLGSTYLE 4 5%C\ L%T C C\ \%C: %T C C: \%C. %T C C. \BCC fUFILNAME 4 5   T C\ % yT C > T C RT C: % T C > T C R B UFILENAMESLASHPOSNAMELENCOLONPOSC 4 7BC    UOTYPE% 4 BC UOTYPE 4 BC UOTYPE" 4 BC UOTYPE 4 5  T  ~  C ^T C DT  ~  C T C D% (BC    a-6&BC   a-6U MUSTEXIST MAXFROMTSMAXTOTSPLATFORMG_FROMPLATFORM ISENVIRONOBJTYPE TIMESTAMP G_TOPLATFORM 4 5  T CO H3 CPLATFORMbUu-CCfCC fT C4 CC fDOS T a2 T - #  B UTARGETINRECRETVALPLATFORMz H s 3% T ChicagoT  T T ChicagoT  T T GenevaT  T T ?T ChicagoT  T T GenevaT  T BT GenevaT  T T GenevaT  T T ?T GenevaT  T BT M?T  MS Sans SerifT T BT GenevaT  T TT  2sT  MS Sans SerifT T BT  MS Sans SerifT T B%CC hT  MS Sans SerifT T BT C  T C  T C  T M?T ?T GenevaT  T BT  MS Sans SerifT T BT  UG_LOOK2D G_CTRLFFACE G_CTRLFSIZE G_CTRLFSTYLE G_WINDFFACE G_WINDFSIZE G_WINDFSTYLE G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLEG_MACBTNHEIGHT G_MACBTNFACE G_MACBTNSIZE G_MACBTNSTYLEG_WINBTNHEIGHT G_WINBTNFACE G_WINBTNSIZE G_WINBTNSTYLE G_THERMFACE G_THERMSIZE G_THERMSTYLE G_BTNHEIGHTGASHOWME G_TPFILEINDX %-T  T  T C %CC T  T  T C T C  T C  T C  U G_WINDFFACE G_RPTFFACE G_WINDFSIZE G_RPTFSIZE G_WINDFSTYLE NUM2STYLE G_RPTFSTYLEGASHOWME G_TPFILEINDX G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE 5 %-T Geneva,10,N"T C C, =?T CC C, C, C, \g"T C C, \%35 -T C   $  '-T C   $  ' T aT  T  T  B %  53  LDEFINE WINDOW transtemp FROM 1,1 TO 2,2 FONT "&g_rptfface", m.g_rptfsize t, T C'%C "T C C, =?T CC C, C, C, \g"T C C, \%35 -T C   $  '-T C   $  ' T aT  T  T   %  53  <, BU FONTSTRG G_DFLTFFACE G_DFLTFSIZE G_DFLTFSTYLE G_RPTLINESIZEG_RPTTXTFONTSTYLE G_PIXELSIZE G_RPTCHARSIZE G_FONTSETGASHOWME G_TPFILEINDX G_FILETYPE TRANSTEMP BC.9U BC.$UB BC.&%Clblwind Clblwind ;<,ULBLWINDU45  T " T -%C#C T"T C>+"  1T C"T CC Af%#TRAN -a%CC =#TRANCC SNIPPETS CC ONLY ) T aT"  B USNIPPETOLDMLINERETCODESNIPLENLINEUPLINEWORDNUMMATCH 45  T CEXACTvG HC C gT C  C > !T C a-62!T C  a-6% OFFG  B U CANDIDATEKEYWORDIN_EXACTRETVAL 45T C T C C  +C T C    T H  H" C  T  C  @.T C C  \2 T C  .T C C  \ %C %T C C \T   BC USTRGW_NUMS1RET_STRSTRT_POSs 4 5T CC f(%C R\: C aT  \ B UPATHNAME 4 TC ]TC3:\6%C  &T C C  \%C: %T C C: \ BC UFILNAME CLOCALFNAMECDIRSEP 4 T CC f TC ]TC3:\6%  "T C C  \G%C R  C > C C >\: TC C >\ B  BUFILNAME CLOCALFNAMECDIRSEP4  5%C \.IT C \T C T CCC f%C. 0T C C. \. T  . BC  UFILNAMEEXTPNAMED4  2BC C UITEXTIOFFCVTSHORTB4  0BC C UITEXTIOFFCVTBYTE-4  BCC \UITEXTIOFF!-4        H: 7B C   $C   $ t C f MS SANS SERIF C f MS SANS SERIF   B  B  B  2 B U MWIDTH BFONTFACE BFONTSIZE BFONTSTYLE OFONTFACE OFONTSIZE OFONTSTYLE G_CHAR2GRPH G_GRPH2CHAR 4 H DOS9BMS-DOS WINDOWSaBWindows MACB Macintosh DOS BDOS2 BUSTRG4P%       nBa}B-UOTYPEMREDMBLUEMGREENMPATTERN G_GRPH2CHAR% c T SCCC]@\7o C'   C % S&  F G-( -a H? SCAN FOR platform = m.g_toplatform AND (INLIST(objtype,11,12,7,13,14,15, 16,20,22,17,6,8,18,5) OR objtype = 1 OR objtype = 2) AND &g_tempalias..timestamp > timestamp Upd ?SCAN FOR platform = m.g_toplatform AND INLIST(objtype,1,15,17, 8,9,18,5,6,7,2) AND &g_tempalias..timestamp > timestamp; Upd F Q F %  T SCCC]@\ HY $ro C'    %   C   o C'     C    C %   C  Yeo C'   %   C  % ~ NewQ% T %C  + C C T  H# 6 pT T !B(" T T !B("T T !B("BU#INITSEL G_SNIPPETS G_TEMPALIAS G_SCRNALIASPLATFORMG_FROMPLATFORM OKTRANSPORTCOMMENTUNIQUEIDID G_FILETYPEADDSEL G_NEWOBJECTSJUNK G_CHAR2GRPHOBJTYPE G_TOPLATFORM G_GRPH2CHAROBJCODEBLACKBOXFILLREDFILLBLUE FILLGREENFILLPAT G_GRPH2GRPH G_TPSELCNTTPCANCELGASHOWME G_TPFILEINDXTPSELECTTPARRAY VERSIONCAPG_STATUS G_RETURNCODETRANSPRTT BU G_TPSELCNTB4%53 T   +T   CT T 7T   +T   CT T BUSTATUS G_TPSELCNTTPARRAY G_CHECKMARKASSEMBLEUNIQUEIDOBJTYPE4 H 6Ba2T C % 'BCCC = a-6B-UIDNUMMOBJTYPEMOBJCODEPOSTPARRAY4 5  Hg C  n9T CCCCCC C +T CCCC- C+ H'  lT CCCCCFrom CC Z,CC Z to CC Z,CC Z- 'T CCCCCAt: CCCC TZ,CCCC TZ , Height: CCCC TZ , Width: CCCC TZ-2g4T CCCCC%53 &BC =CC C >R7 B USTATSTRGSTRGOBJTYPE TYPE2NAMENAME CLEANPICTPICTUREEXPR G_CHAR2GRPH G_GRPH2GRPHVPOSHPOSHEIGHTWIDTH G_GRPH2CHARCVTREPORTVERTICAL.45 H CT Header C wT  Environment T Text T Line T Box T  Report field  <T Band  cT Group  T List  T  Push button  T  Radio button T  Check box  H/ C%C kT SAY ExpressionT Field CT  GET Field2T Field T Popup "T Picture PT  Rpt variable |T  Inv button T Spinner T Printer driver T  Font data2T CZ B UNSTRGNAMEEXPROBJTYPE: 4 5 %%CC =C" C' MT C \%%CC RC" C' !T C C >\T C@ % -T CC C C \\A%C >(T C =... B USTRGATSIGN14 H =   lTThese objects are new to 1 platform or have been modified more recently on  . 1TThese objects are new to . =JT2These objects have been modified more recently on . HN* 5%Ctpselect xs,纉t@  B'Visual FoxPro Transporter z,%Ctpselect t,( t,Cff B(l'qDC@ 8.154,2.600 GET xsel PICTURE "@&N" FROM tparray SIZE 17.500,68.875 DEFAULT 1 FONT m.g_foxfont, m.g_foxfsize VALID toggle() HEv@  AB@v@@oEvff2Uncheck any items you do@  ABT?<@[b332not@  ABIT?^I @nb7want to be transported.@  ABT?;@I癙]@  A K7?h|?U0@ʡE? @*VT \!\<OK;\?\<Cancel*C [IStat@  ABT?@[IType@  ABT?@_I33&Variable@  ABT?$@hI>Expression/Prompt@  ABT?9@%Ctpselect t, 9C<, 3 %Ctpselect =[s,纉d@Geneva A'Visual FoxPro Transporter z,%Ctpselecta t,r t,@ 8.154,2.600 GET xsel PICTURE "@&N" FROM tparray SIZE 16.000,78.875 DEFAULT 1 FONT m.g_foxfont, m.g_foxfsize VALID toggle() KEv@Geneva A @v@@oEvff2Uncheck any items you do@Geneva A?<@_b332not@Geneva AI?^I @nb6want to be transported.@Geneva A?;@I癙S@  A $@? @*VT \!\<OK;\?\<Cancel*C ]ǏStat@Geneva ATB?@]I Type@Geneva ATB?@aI33Variable@Geneva ATB?$@jI/Expression/Prompt@Geneva ATB?9@%Ctpselect  t, 9C<, 2*%Ctpselect c zs,CC 8CCM 8(CC 8CCM 8L N'Visual FoxPro Transporter%Ctpselect t, t, f@ 8,1 GET xsel PICTURE "@&N" FROM tparray SIZE 13,72 DEFAULT 1 VALID toggle() COLOR SCHEME 6 ?Uncheck any items you do*not>"want to be transported.Z>  @*VT \!\<OK;\?\<Cancel*C + Type8(Expression/Prompt/Variable+Stat!%Ctpselect t, 9C<,UTPARRAYTPCANCELFROMPLATTOPLAT G_SNIPPETS G_NEWOBJECTSPTEXTTPSELECTG_SMFACEG_SMSIZE G_TDLGFACE G_TDLGSIZE G_TDLGSTYLEOKVALID WREADDEACG_SMSTY1 G_TDLGBTN%CC= L-TCC [.TCC [B-UTPARRAYXSEL G_CHECKMARK% 5 T  ( ~!%CC = zT  % T UTPCANCELICNT G_TPSELCNTTPARRAYUs 5  ( e6%CC CC =  aBaB-UI G_TPSELCNT ISENVIRONTPARRAYe4  %;BC ZC Z^BC ZC ZUOTYPERNOOBJTYPE/ 4 %53 ( G&( UMSGT CESCAPEvT CTRBETvGeT C COMPATIBLEvGAT CDEVICEvG(&T C READBORDERvGj T CSTATUSvT CWT CUDFPARMSvG^T CTOPICv%CHELPvON H# C.DBFCHELPv{ GU(CHR(254)+" Transporter" 12F1HELP Transporter# C.HLPCHELPvGU(Transporter Dialog%12F1HELP Transporter DialogT CFIELDSvT CFIELDSvG(GT C MEMOWIDTHv G$(T CCURSORvG]T CCONSOLEvG T CBELLvGT CEXACTvG T CDECIMALSv G ( T CFIXEDvG T CPRINTvG*T CUNIQUEvG6T CSAFETYvG.T C EXCLUSIVEvG %C2.5T CCOLLATEvGk(machineUESCAPE TRBETWEENCOMPDEVICERBORDSTATUSCURRAREAUDFPARMSMTOPICF1 MFIELDSTOFIELDS MEMOWIDTHCURSORCONSOLBELLEXACTDECIFIXEDPRINTUNQSETSAFETY EXCLUSIVEVERSNUMMCOLLATE 4 %C& T -%C  % %C p F Q%C  F Q%C  F Q F Q F ON ERROR &onerror % ON!G /G % ONNG \G% ON{G GSET FIELDS TO &mfieldsto % ONG G% ONG G% ONGA % ON=G* % OFF]G% ON|Ge % ONG6 % OFFGj% ONG0  G (  G$( SET DEVICE TO &device SET UDFPARMS TO &udfparms SET TOPIC TO &mtopic %C2.5ySET COLLATE TO "&mcollate" {2F1Q  G&( F % ONG] G]% ONG. % ON!G2 % ON@G NG% ONmG2 % U CANCAFTER G_20ALIASG_STATUS G_TEMPALIASG_FROMOBJONLYALIASG_BOXEDITEMSALIAS G_SCRNALIAS WRITERESULTCONSOLESCAPEBELLFIELDSEXACTCOMPPRINTFIXED TRBETWEENUNQSETRBORDSTATUSDECI MEMOWIDTHVERSNUMF1 G_TEMPINDEXCURRAREA DEACTTHERMCURSORSAFETYTALKSET EXCLUSIVE5   %` F Q F  ( Q d> C fo  C'  T  T SCCC]@\  % 9 F C& CC C CZ6CZCZ% m F & CCO F %CNT d CN T  (  F  H@  G((temp 2G((temp12@G(( ~ C  C' ^ F _ F T C  dF   F Q F  ( Q F Q dU PLATFORMSLOOP THERMSTEP G_FILETYPE G_20ALIAS G_SCRNALIAS G_SCRNDBFUPDTHERMALLPLATFORMDISTINCTPLIST G_TEMPALIASDOCREATEOBJTYPEOBJCODEVPOSTEMP G_UPDENVIRON OUTPUTORDTEMP1 G_MERCURYBCChUWORDNUMa4   %a C2.5 GBC  9Z B UTOCPFROMCPSTRGVERSNUMn4   '%a C;  C2.5 TBC  9g B UTOCPFROMCPSTRGVERSNUM 4 H DOS6 B WINDOWSZ B MACz B' DOS B2 BUPLAT4  T%C#DOSOBJ ST%C#WINOBJ T%C#MACOBJ T %C#UNIXOBJ T-%CCCC4 T HE  DOSvBCCa-6 WINDOWSBCCa-6 MACBCCa-6 DOS BCCa-6USTRG PLAT_ARRY G_TOPLATFORM4 4 (BCC** ERRORC fa-6USTRG4   5    T -%  T COT C  % #)4~       (%      T a #  B U OTYPERNUMPFORMIN_RECRETVALOBJPOS GETOBJPOSPLATFORMOBJTYPEOBJCODEHPOSVPOS4  5  T T G~ 0C    T  %CO T   B URNUMPFORMOBJCOUNTRETVALPLATFORMOBJTYPE 5 &T MS Sans SerifTTBTGenevaT T&T MS Sans SerifTTTGenevaT T$T Courier NewTT* TCourierTT* (C)T CCC f)T CCC f)T CCC f)T CCC fUI G_FONTMAP -4       5   T *T C 6 (C o%C   CC fCC    $CC   CC f  T C   !%C   PT  wT C   #%C   T  T C   BT  T  T  BU INFACEINSIZEINSTYLEOUTFACEOUTSIZEOUTSTYLEWIN2MACIASTERISKAOFF G_FONTMAP5   T T T /C   3%C ,>  C U THEFACETHESIZETHESTYLEMAPFONTFONTFACEFONTSIZE NUM2STYLE FONTSTYLE STYLE2NUM= 4 T C `5  T C  HM+& C@  T C =%C2 T  2T  C \ C T @2 C2+%CC R%C \@1T C C >\2C R3T C \@2 C \'%C \@T  2# T @2   B USTRGSP_POSCTRLISQUOTE= 4 T C `5  T C  HM+& C@  T C =%C3 T  3T  C \ C T @3 C3+%CC R%C \@1T C C >\3C R3T C \@3 C \'%C \@T  3# T @3   B USTRGSP_POSCTRLISQUOTE# 4 %%CC =C" C' [  H;  C" oT " " C' T ' ', C[ C]  T [ ]2 T " " B USTRGA 4 %C C" C' +Ba:B-UCHARU 4 T CC f%C ?BaNB-UTHEFONT G_FONTAVAILr%! >%F >%k >UPENREDPENGREENPENBLUEO 4 %aH% D R,Assertion failed: U CONDITIONSTRGtransprt,opendbf doupdate! converttype% setversion*settocp+import, graphictochar)1 chartographic-3graphictographic15 updatescreen/7 updatereportD updenvironRconvertprojectNTnewchartographiczWnewgraphictochar^ newgrphtogrph,cnewbandsfgallgraphictocharjallchartographicn allgrphtogrphs cvrt102frx8v cvrtfbprpt cvrt102lbx cvrtfbplbl7 initbands bldbreakexp bldbreaksa blddetail:addtotallitexist getlitexprªmakebandmaketext, makefieldt getheadingylinesforheading|howmanyheadingsbfld_head_existY totals_exist center_colevalimportexpr getoldreporttypegetoldlabeltypeķ mapbuttonscatterbuttonsG findlikevpos1 findlikehpos makecharfit allenvirons; allothers" fillininfoH adjrptfloatGadjrptsuppressE adjrptresetgetcharsuppresssuppressblanklinesX allgroups6 rptconvert rptobjconvert getbandindexFbandinfo cloneband resizeband*bandpos emptyband getbandcodeg grphrptcvt getbandnum gettextwidthcvtreportverticalcvtreporthorizontald cvtrptlinesmergelabelobjects labelobjmerge addlabelblanks linesbetween labelbands; labellines calcpositionscalcwindowdimensionsCfindwiderobjectsadjhposw$sgn& repoobjects&adjitemsinboxes, itemsinboxes0findothersonline= adjinvbtnsA adjpostinvO findalignendURstretchlinestoborders U joinlinesGXjoinhorizontalGa joinverticale meetboxcharIj zapboxcharnaddjoin#o rejoinboxesq joinlinewidth$wgetlastobjectlinemz adjobjcodeR~ getwindfont~adjheightandwidthcolumnar܊dossizeP adjbitmapctrladjcolorrgbtoxadjpenadjfont commonfont.convertcolorpairgetcolor num2stylek style2num\adjtextʧadjbox\ getlinewidth horizbutton8 maxbtnwidth getobjwidth getobjheightm getrightmost߻ getlowestFdocreate makecursoraddgraphicallabelgroupsupdatelabeldataMplatformdefaults converter updateversion synchtimestampvalshiftlLshiftr emptyplatform2 structdialogcurpos" scxfrxdialogRdfltplatmakepict transprmpt8rdvalid"deacclauU showclauh scrnctrlk$ enableproc$pvalid$ starttherm% thermfname& partialfname(acttherm*updtherm7 deacttherm?9 errorhandler{9 cleanwind;errshow[<juststemeA strippathXBisobjectuC isreptobjectC isgraphobjC isenvironD IsNewerEnvJD hasrecordsEsetctrlF setrptfontLaskfontNis20scxRis20frxRis20lbxR getsnipflagRmatchTwordnumUaddbsW justfname}Xjustpath{YforceextZcvtlong[cvtshort5\cvtbyte\ obj2basefont\ versioncapZ^blackbox#_ selectobj_initselDgaddseljg isselectedhassemblei type2name(m cleanpictxqtpselectrtoggleokvalid` wreaddeac: EnvSelectF outputord putwinmsg^setallcleanup writeresult׏versnumcptransޓcptcond` setfromcp oktransport iserrormsgboxjoin  getobjpos initfontmapmapfontreplfont make2dmake3d|addquoteڥisquote fontavailRfixpenassertR1a!Aq1rqqqqAAqqqqqqAAAc raaAArQqqRqqqAaaA4r2qAA2qAQ!A!A!A!A!AAqqAqAAQAArAqqqq1 aAqAASA$aq$aqq13!aqA#a#1qq11AC1qqA1A1AQUA!aqAAr9qa!qAq>qrrrq1A1QA#AAA3QQQAAQA21qQQQrQAAqAqAA11q1qA?a!!!A6A 1RrAtAAQQAA"AAqqqAA@1r2AAr1qqAAqAA@1r1AAr1qqAAqAA01r1AAr1qqAAqAAP1bQQAQAAAQA1AaA!aAAAAAA!!!!A!!"ABABP1rbQQAQAaAAa!!AAAA!!!A!!AA"AArqqAAAAB8aQaAAA<AaQa!bA"AAQAAA1aqAAv!!A2qQAaQaqQQA2!!AAAA23AAAAA1a !!A2qQAAaQaq2qA"!AAAArB1az!!A2rQAAaQaq2qA"!AAAAB1Q#aQa!!qAAAAp1r 1Eqqq2qqq2qAAB1sx AAAR1qqqar2qqq2qqqA2aqA2A2CQAAqAAAP1rx 1qqq2q2BAB1d111!A"A!AcrqQq111111QA1A1AqQq1111QAqQq11111qQAQAqQq1111Q1A11QARA"A2ARqQq1111QAQAQAAAsA2QAsA 12AAAqAqAQqAAAA!AcsqqqAsQq2QAtA92aQQAArQQA& sQ1"!!!!!QqA2QAsAC8S2aQAQaqAA% sQ1"!!!!!QqA2QAtA01R1!!!QAAAAAQAaqA2QAQAQQAAQA3AA"aAaQAAAARB=aqQaA<qaqAAAA?1111QAAAAAAAAAA2aQAQAAAAABaAB<AAaA<aqAA?QA9Q1!1!!qAqA<q1Q1AA<R11!!!!!!!!!A;QqaAaA<QaQAAA<QaAA;AAA9AAA9;qqqAAAA;2A11AaAAA;T2aA11AaAAA>!aAtq3AASaAAQARrAAy111AAA9!!q11!qAAA1QAA1QAA11AAAA1rbQaA1q2YA2\qAAArqAAA1rArbQAQabArBAp11qqA5baAAQq!AA$AQ4AQqAA5baAAAAqAABqArq1qAA>AAAAAAA=AAAQAAAAA=AAAA=qA11AAQA!AAA?QrbQaA 1QQAAQRqAAA1qaBAAAAAc!AqqAvQSAa!A!A"!#AA"!!!rqAA1BqAAAAAAB="AA01SQAARS4QQAAAA9AArABQ3Q3cAAcA"QA33bAAbA"QAA:RcBAUaccBAB?4bAA>1aQAAA>aqAaRAA<AQAAAAa84"A"QABAAA7Q1AAQAQAA7aAA>AA=A8AqAA1AAA>1AAA<Q4QAAA=bQAAA<QbAQQQCQ3!SQsQqQAAAQ11AbQA1Qq!QAbrqAQAAA11AARA=1AAAAAAq1aAB 1qQqQA21qA1qAqBABq11AB1RRQA2ABbAq!rAAAAAAA=QAqA9qA 1Q1QAqARC2rA1AqAqAAAA>Q2sqAbAa11!QqAAB 1q RAAAA2111AA!AQAr"2"AAqAv AA"AAaqAAAs1qAAABAAABA<QbA1qAqcqBBA1t QA_qqqqA22AAqAqAAA"!AQq1!AAAAAAAAA11A21AAA"A? 1AA"A=QRQqAA=qAA11A111AAAAA"AA@1U 21QAbAAAAAQAQAAAAAAArqRQA"AA1qqqAQQAQAAAQAAA1qqAQQAQAAAQAA?bqqrAAqqrAAAAA"AA=QA"AAA?q1QQAAAB1q11a1A11a1AC1AC1AAAA"AB?QAA2AAA>1Ar!qAQbAAqAAsAB<A;RaAAAA@1SAAA1Q1q2ABAAQqAqQ1A!Aq1BQAAAA!!AB13AA>Q?b!!AR1AAAB11AAqA1QAA"AAAAAA<QAA1Au111111111111111A<AAA>AA!AA1AAR1AAA1A!1AA!1AA!1AAAAA7QQ?A!!!AAAA!AA!AA!A1!!!1A!AA!AA!AAA;1!sQA1AAAA6QQQQQQQQQAAA>AAaA1qqqA!CQaA1qqqA!AsQa1qqqA!AA1A1!1A1!1AA2AAAAAAA1"11A21A1AAA@1qqA>bA!AAA?!AAc#A>AAc#A> A> A?1^>91qAA?1aARQQAAq>CARRRRA?rSA?2AA01q1AAr1Q1qAAAr<1AA=AA?>QA>qA=RqAb1qqA?1a1a1Q1qAqq!+q,AArAt"ArAQQAAA21qAA2qqAA9!Aq`1qQ rAd$$ T avh6A rA $$ 4a7ABqRB rAd$7WaFA$ Tqv6A rA $ WaFAq7AA!1rA2adEeArA3adAAqAAB%AQAAAv1111rqAA111rqAA111rqAAAaAAA71QA74QQQQaQAaAqQa1AAA<A>qqqAA<Qq<1AAAb112AqqAAA<aq:A<!a!1A1111A8QAqARAAA9T!AAqaqAA 1C1a Aq1aAbABBrA!AqAA1AA2A1AABBAA<AA011QqAAaa1QaQ1qA=AaAaAAA1bAA2AbAA2Ab1r121Ara:QQAQAQA1Qq1q1AA1r=;17a7aAaAbA<A:bcTraQUTrQAqRArqQB7aaAB<"!!ABAA"!!!AAAB:99aA?qq1aQAAAA=ba1QAaaA=12A1!A1QAA<QQaA5QaAQA6QQQ!rAA1QABAA9!=:9rE5A;AA!AA8qqqA01rtQ1 A1AAAAA(* WAAAAA2A111AAB9A;q"QQQQAA71q1sqAA<rQ ADA"aA8qq1Q11111!1111A111111AAAA1A1a111a11AA:SaAQAr1ARA>1AAqA4gAAqAkGAAqAgAA9AQq9QAA1AA9T7aqAAq7A7!A1Srgaaqqarab11QAAqaaraaRabababararaaR!A1A!1AAAAAAAqAARSaaARaaARaaAQaaARaaARaARaAbaARaARaAbaARaARAQBarRaaARaARaARaaAQaAB@1QAA144AQAA1aAaQaAAAAAA67SA6TqA7aaaA7q1A1A1A1AAaaaA77QR11RAAAAA7qQ!AA7obBA6QA2AAAAA7Q!A71RaaAQq2AbAAA71RaaAQq2AbAAA7RAA6qqA7QqqA7DAAAAA7AA1`L]LN7g O|VNVccNece|hhLt.gt>{7Y{Q(kBȝ$d2|2Bд Qa*34W=Ou  ,9+56Q+8 8]B uBO O[U h\ _ s _pb {bl (lnH nqZ qsr sbw xwz z~ ~z ? [ Ɇ 'J( 1a: 41fG @B] \^b yxå ߥ HB b3d L # .:M K%/C K\e |y}' 97 Q>S Y 3:! O!O7* f7?~F ?IDS ]DHe HCMz [MVP. nPYUN pUXq X\ \3_ S_a 4ae -e]h xhk kGo6 aorT+ rol ϊ $ ݔq Ο3B HgL w5W ӱ_Q |v m :F R 'N g  R i\)!Xx)1199NAfA3EYHECJy\JV/VF]Ed]e ze/hjHh5m|Tm F j(+{5As0DsFPbg ?%F4`[ SJ%k{,E)Ymu6}Vm  $ $L): c)-] -P0 g03 3o6 #68 *8: 1;= >>L! M?Q!XQ!l$Ӱ$0$,$$$(Y=%+p{I%3\%?w%I%g %%5@&X&&&=I&^ !'< r'J'Z']7'`'c 'f3l'v( +(+0(0R8(f89(9:(:=()=A)/AC()+DYIF)GkI0Ks)OFKM)[NR)kRU)yUW)| XY)Y [)9[`).`1b*Fb7f-*NfuJ*uw*wz*z}~*~+ȅ؋7+V|+g+ϩ,0,FC,Y,  ,#G,[c,$x_-_.s].f.t.... ..)1.CF./\JS/e])e/< ///5/I[/o/0!mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class 0 WINDOWS _QZ50TVBJU 553030248X+ WINDOWS _QZ50TVA4X 553030248 WINDOWS _QZ50TVA75 553030248U WINDOWS _QZ50TVA9N 553030248TSRQN WINDOWS _QZ50TVADU 553030248MLKJG WINDOWS _QZ50TVAHG 553030248FEDC@ WINDOWS _QZ50TVAJY 553030248?>=<8 WINDOWS _QZ50TVAMG 55303024876540 WINDOWS _QZ50TVAOY 553030248/.-,* WINDOWS _QZ50TVAR6 553030248)('&$ WINDOWS _QZ50TVATP 553030248#"!  WINDOWS _QZ50TVAWH 553030248 WINDOWS _QZ50TVAZT 553030248 WINDOWS _QZ50TVB21 553030248  WINDOWS _QZ50TVB4J 553030248    WINDOWS _QZ50TVB6R 553030249 WINDOWS _QZ50TVB99 553030249 WINDOWS _QZ50TVBC1 553030249 WINDOWS _QZ50TVBEU 553030249 WINDOWS _QZ50TVBHM 553030249 COMMENT RESERVED WINDOWS _QZ50TW09G 553030272TU RSQPO WINDOWS _QZ50TVZI6 553030272 WINDOWS _QZ50TVZL9 553030272 WINDOWS _QZ50TVZPF 553030272 WINDOWS _QZ50TVZT1 553030272} WINDOWS _QZ50TVZXH 553030273|{zyn WINDOWS _QZ50TW01D 553030273mlkjh WINDOWS _QZ50TW03C 553030273gfedb WINDOWS _QZ50TW05A 553030273a`_^\ WINDOWS _QZ50TW078 553030273[ZYXV COMMENT RESERVED NM@VERSION = 0.029x __]%%>jU4  %CM.TC  C D6%CsT %C T C d8T T CdC DF% y(%CCC Z>CCCZ>,STC C B6C I6$kT CCC Z% C B6C I6#5T C  8 T  T $T Cd 8!TCC Z%T+%   Z9%    T  V1T    uT % TU IPROGRESS2CTASKTHIS CCURRENTTASK2IBASIS2 IPERCENTAGE2 IAVGCHARWIDTHLBLPERCENTAGE3FONTNAMEFONTSIZEFONTBOLD FONTITALICWIDTHLEFTSHPTHERMBARMAXWIDTH SHPTHERMBAR2LBLPERCENTAGE4CAPTIONLBLTASK2 4 5%C8T  Complete..CC d6 T C+C  %C T &cThermRef = .NULL. <UCTASKISECONDSTHISUPDATE2IBASIS CTHERMREFTHISFORM14'TCC  6UCTITLETHIS LBLTITLE2CAPTION4C'T CC  6$TCC  6U CWINTITLECTITLEIBASIS IINTERVALCTITLE2IBASIS2 THERMOMETERINITTHIS LBLTITLE2CAPTIONupdate2, complete2 settitle2Init51A#A2!Aa4RA!AA1AAaA3rA!1B2!qqA3sr3rA3' >6 _ W9z _)_D ++w%>6U 4 5%C8T  Complete..CC d6 T C+C  %C T &cThermRef = .NULL. <UCTASKISECONDSTHISUPDATEIBASIS CTHERMREFTHISFORM4  %CM.TC  C D6%CsT %C T C d8T T CdC DF% y(%CCC Z>CCCZ>,STC C B6C I6$kT CCC Z% C B6C I6#5T C  8 T  T $T Cd 8!TCC Z%T+%   Z9%    T  V1T    uT % TU IPROGRESSCTASKTHIS CCURRENTTASKIBASIS IPERCENTAGE IAVGCHARWIDTH LBLPERCENTAGEFONTNAMEFONTSIZEFONTBOLD FONTITALICWIDTHLEFTSHPTHERMBARMAXWIDTH SHPTHERMBARLBLPERCENTAGE2CAPTIONLBLTASK14'TCC  6UCTITLETHISLBLTITLECAPTION4$TCC  6'TCC  6$TCC  6U CWINTITLECTITLEIBASIS IINTERVALTHISCAPTIONLBLTITLEcomplete,updateIsettitleInit,1qA!1B2!qqA3A#A2!Aa4RA!AA1AAaA3sr37BrA3 6 U9& ])+!Arial, 0, 9, 5, 15, 12, 13, 3, 0 therm2Pixels ..\samples\ ..\samples\Class10 thermometertherm2\Top = 122 Left = 338 Height = 17 Width = 1 BorderColor = 255,255,255 Name = "Shape18" therm2.Shape18shapeshape[Top = 122 Left = 16 Height = 16 Width = 1 BorderColor = 128,128,128 Name = "Shape17" therm2.Shape17shapeshape\Top = 138 Left = 16 Height = 1 Width = 323 BorderColor = 255,255,255 Name = "Shape16" therm2.Shape16shapeshape\Top = 122 Left = 16 Height = 1 Width = 322 BorderColor = 128,128,128 Name = "Shape15" therm2.Shape15shapeshapeyAutoSize = .F. FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 1 BorderStyle = 0 Caption = "Label1" DragIcon = ..\vfp\ DragMode = 0 Height = 13 HelpContextID = 0 Left = 170 MousePointer = 0 Tag = "" Top = 50 Visible = .T. Width = 0 ReleaseErase = .F. ForeColor = 255,255,255 BackColor = 128,128,128 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 24 Name = "lblPercentage4" therm2.lblPercentage4labellabelpAutoSize = .F. FontBold = .T. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 1 BorderStyle = 0 Caption = "0%" DragIcon = ..\vfp\ DragMode = 0 Height = 13 HelpContextID = 0 Left = 170 MousePointer = 0 Tag = "" Top = 50 Visible = .T. Width = 16 ReleaseErase = .F. ForeColor = 0,0,0 BackColor = 192,192,192 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 23 Name = "lblPercentage3" therm2.lblPercentage3labellabel,AutoSize = .F. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 0 BorderStyle = 0 Caption = "" DragMode = 0 Height = 16 HelpContextID = 0 Left = 16 MousePointer = 0 Tag = "" Top = 10 Visible = .T. Width = 322 ReleaseErase = .F. ForeColor = 0,0,0 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 22 Name = "lblTitle2" therm2. lblTitle2labellabel+AutoSize = .F. FontItalic = .F. FontName = "MS Sans Serif" FontOutline = .F. FontShadow = .F. FontSize = 8 FontStrikethru = .F. FontUnderline = .F. WordWrap = .F. DefTop = DefLeft = DefHeight = DefWidth = Alignment = 0 BackStyle = 0 BorderStyle = 0 Caption = "" DragMode = 0 Height = 16 HelpContextID = 0 Left = 16 MousePointer = 0 Tag = "" Top = 27 Visible = .T. Width = 322 ReleaseErase = .F. ForeColor = 0,0,0 BaseClass = "Label" ParentClass = "" ClassLibrary = "" Class = "Label" ZOrderSet = 21 Name = "lblTask2" therm2.lblTask2labellabelTop = 48 Left = 17 Height = 16 Width = 0 BorderStyle = 0 FillStyle = 0 BackColor = 128,128,128 FillColor = 128,128,128 ZOrderSet = 20 Name = "shpThermBar2" therm2. shpThermBar2shapeshapeWccurrenttask2 ibasis2 ipercentage2 iprogress2 *update2 *complete2 *settitle2 ScaleMode = 3 Height = 150 Width = 356 DoCreate = .T. Caption = "" Visible = .T. ccurrenttask2 = ('') ibasis2 = (0) ipercentage2 = (0) iprogress2 = (0) ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (322) cthermref = ('') Name = "therm2" shape1.Height = 150 shape1.Name = "shape1" shape5.Top = 124 shape5.Left = 16 shape5.Name = "shape5" lbltitle.BackStyle = 0 lbltitle.Caption = "" lbltitle.Left = 16 lbltitle.Top = 84 lbltitle.Visible = .T. lbltitle.Name = "lbltitle" lbltask.BackStyle = 0 lbltask.Caption = "" lbltask.Left = 16 lbltask.Top = 101 lbltask.Name = "lbltask" shpthermbar.Top = 122 shpthermbar.Left = 17 shpthermbar.Height = 16 shpthermbar.FillColor = 128,128,128 shpthermbar.Name = "shpthermbar" lblpercentage.BackStyle = 0 lblpercentage.Caption = "0%" lblpercentage.Left = 170 lblpercentage.Top = 124 lblpercentage.Name = "lblpercentage" lblpercentage2.BackStyle = 0 lblpercentage2.Caption = "Label1" lblpercentage2.Left = 170 lblpercentage2.Top = 124 lblpercentage2.Name = "lblpercentage2" shape11.Top = 48 shape11.Left = 16 shape11.Name = "shape11" shape13.Top = 48 shape13.Left = 16 shape13.Name = "shape13" shape12.Top = 64 shape12.Left = 16 shape12.Name = "shape12" shape14.Top = 48 shape14.Left = 338 shape14.Name = "shape14" shape9.Name = "shape9" shape8.Height = 144 shape8.Name = "shape8" shape7.Top = 146 shape7.Name = "shape7" shape6.Height = 148 shape6.Name = "shape6" shape4.Top = 148 shape4.Name = "shape4" shape3.Height = 147 shape3.Name = "shape3" shape2.Name = "shape2" shape10.Height = 143 shape10.Name = "shape10" form sprtherm.vcxformScaleMode = 3 Height = 87 Width = 355 DoCreate = .T. AutoCenter = .T. BorderStyle = 0 Caption = "" ControlBox = .F. Closable = .F. MaxButton = .F. MinButton = .F. Movable = .F. Visible = .T. AlwaysOnTop = .F. BackColor = 192,192,192 ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = (322) cthermref = ('') Name = "thermometer" pipercentage ibasis ccurrenttask iprogress shpthermbarmaxwidth cthermref *complete *update *settitle shapeshapeShape1 thermometer.MTop = 0 Left = 0 Height = 88 Width = 356 BackStyle = 0 Name = "Shape1" shapeshapeShape5 thermometer.!Arial, 0, 9, 5, 15, 12, 13, 3, 0  thermometerPixels ..\wzimport\ ..\wzimport\Class20form thermometerXTop = 3 Left = 3 Height = 81 Width = 1 BorderColor = 128,128,128 Name = "Shape10"  thermometer.Shape10shapeshapeXTop = 1 Left = 1 Height = 1 Width = 353 BorderColor = 255,255,255 Name = "Shape2"  thermometer.Shape2shapeshapeWTop = 1 Left = 1 Height = 85 Width = 1 BorderColor = 255,255,255 Name = "Shape3"  thermometer.Shape3shapeshapeYTop = 86 Left = 1 Height = 1 Width = 354 BorderColor = 128,128,128 Name = "Shape4"  thermometer.Shape4shapeshapeYTop = 1 Left = 354 Height = 86 Width = 1 BorderColor = 128,128,128 Name = "Shape6"  thermometer.Shape6shapeshapeYTop = 84 Left = 3 Height = 1 Width = 350 BorderColor = 255,255,255 Name = "Shape7"  thermometer.Shape7shapeshapeYTop = 3 Left = 352 Height = 82 Width = 1 BorderColor = 255,255,255 Name = "Shape8"  thermometer.Shape8shapeshapeXTop = 3 Left = 3 Height = 1 Width = 349 BorderColor = 128,128,128 Name = "Shape9"  thermometer.Shape9shapeshape[Top = 45 Left = 338 Height = 17 Width = 1 BorderColor = 255,255,255 Name = "Shape14"  thermometer.Shape14shapeshape[Top = 61 Left = 16 Height = 1 Width = 323 BorderColor = 255,255,255 Name = "Shape12"  thermometer.Shape12shapeshapeZTop = 45 Left = 16 Height = 16 Width = 1 BorderColor = 128,128,128 Name = "Shape13"  thermometer.Shape13shapeshape[Top = 45 Left = 16 Height = 1 Width = 322 BorderColor = 128,128,128 Name = "Shape11"  thermometer.Shape11shapeshapeFontBold = .T. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 1 Caption = "Label1" Height = 13 Left = 170 Top = 47 Width = 0 ForeColor = 255,255,255 BackColor = 128,128,128 Name = "lblPercentage2"  thermometer.lblPercentage2labellabelFontBold = .T. FontName = "MS Sans Serif" FontSize = 8 BackStyle = 1 Caption = "0%" Height = 13 Left = 170 Top = 47 Width = 16 BackColor = 192,192,192 Name = "lblPercentage"  thermometer. lblPercentagelabellabelTop = 46 Left = 17 Height = 15 Width = 0 BackStyle = 1 BorderStyle = 0 DrawMode = 13 FillStyle = 0 BackColor = 0,0,0 FillColor = 128,128,128 Name = "shpThermBar"  thermometer. shpThermBarshapeshapeFontName = "MS Sans Serif" FontSize = 8 WordWrap = .F. BackStyle = 0 Caption = "" Height = 16 Left = 18 Top = 27 Width = 319 BackColor = 192,192,192 Name = "lblTask"  thermometer.lblTasklabellabelFontName = "MS Sans Serif" FontSize = 8 WordWrap = .F. BackStyle = 0 Caption = "" Height = 16 Left = 18 Top = 10 Width = 319 Name = "lblTitle"  thermometer.lblTitlelabellabelyTop = 47 Left = 17 Height = 15 Width = 322 BorderStyle = 0 FillStyle = 0 FillColor = 192,192,192 Name = "Shape5"  PROCEDURE complete * This is the default complete message #define THERMCOMPLETE_LOC "Complete." parameters m.cTask private iSeconds if parameters() = 0 m.cTask = THERMCOMPLETE_LOC endif * this.Show this.Update(iif(this.iBasis <> 0, this.iBasis, 100), m.cTask) m.iSeconds=seconds() + 1 do while seconds() < m.iSeconds && wait a sec enddo if !empty(this.cThermRef) m.cThermRef = this.cThermRef &cThermRef = .NULL. release thisform endif ENDPROC PROCEDURE update * m.iProgress is the percentage complete, or, if Init() was passed * an m.iBasis value, is used to calculate the percentage * m.cTask is displayed on the second line of the window parameters m.iProgress, m.cTask if parameters()<>0 this.iProgress=IIF(m.iProgress = 0, 0, max(THIS.iProgress,m.iProgress)) endif if parameters() >= 2 * If we're specifically passed a null string, clear the current task, * otherwise leave it alone this.cCurrentTask = m.cTask endif if !empty(this.iBasis) m.iPercentage = int(this.iProgress/this.iBasis*100) else m.iPercentage = this.iProgress endif m.iPercentage = min(100,max(0,m.iPercentage)) if m.iPercentage <> this.iPercentage if len(alltrim(str(m.iPercentage,3)))<>len(alltrim(str(this.iPercentage,3))) iAvgCharWidth=fontmetric(6,this.lblPercentage.FontName, ; this.lblPercentage.FontSize, ; iif(this.lblPercentage.FontBold,'B','')+ ; iif(this.lblPercentage.FontItalic,'I','')) this.lblPercentage.Width=txtwidth(alltrim(str(m.iPercentage,3)) + '%', ; this.lblPercentage.FontName,this.lblPercentage.FontSize, ; iif(this.lblPercentage.FontBold,'B','')+ ; iif(this.lblPercentage.FontItalic,'I','')) * iAvgCharWidth this.lblPercentage.Left=int((this.shpThermBarMaxWidth- ; this.lblPercentage.Width) / 2)+this.shpThermBar.Left-1 this.lblPercentage2.Left=this.lblPercentage.Left endif this.iPercentage = m.iPercentage this.shpThermBar.Width = int((this.shpThermBarMaxWidth)*this.iPercentage/100) this.lblPercentage.Caption = alltrim(str(m.iPercentage,3)) + '%' this.lblPercentage2.Caption = this.lblPercentage.Caption if this.shpThermBar.Left + this.shpThermBar.Width -1 >= ; this.lblPercentage2.Left if this.shpThermBar.Left + this.shpThermBar.Width - 1 >= ; this.lblPercentage2.Left + this.lblPercentage.Width - 1 this.lblPercentage2.Width = this.lblPercentage.Width else this.lblPercentage2.Width = ; this.shpThermBar.Left + this.shpThermBar.Width - ; this.lblPercentage2.Left - 1 endif else this.lblPercentage2.Width = 0 endif endif if ! this.lblTask.Caption == this.cCurrentTask this.lblTask.Caption = this.cCurrentTask endif ENDPROC PROCEDURE settitle *- set the lbltitle caption PARAMETER cTitle this.lblTitle.Caption = iif(empty(m.cTitle),'',m.cTitle) ENDPROC PROCEDURE Init *- (c) Microsoft Corporation 1995 *- * m.cTitle is displayed on the first line of the window * m.iBasis is used to calculate the percentage complete * m.iInterval is the frequency used for updating the thermometer parameters cWinTitle, cTitle, iBasis, iInterval THIS.caption = iif(empty(m.cWinTitle), "", m.cWinTitle) this.lblTitle.Caption = iif(empty(m.cTitle),'',m.cTitle) this.iBasis = iif(empty(m.iBasis),0,m.iBasis) ENDPROC  PROCEDURE update2 * m.iProgress2 is the percentage complete of the top level bar, or, * if Init() was passed * an m.iBasis2 value, is used to calculate the percentage * m.cTask is displayed on the second line of the window parameters m.iProgress2, m.cTask if parameters()<>0 this.iProgress2=IIF(m.iProgress2 = 0, 0,max(THIS.iProgress2,m.iProgress2)) endif if parameters() >= 2 * If we're specifically passed a null string, clear the current task, * otherwise leave it alone this.cCurrentTask2 = m.cTask endif if !empty(this.iBasis2) m.iPercentage2 = int(this.iProgress2/this.iBasis2*100) else m.iPercentage2 = this.iProgress2 endif m.iPercentage2 = min(100,max(0,m.iPercentage2)) if m.iPercentage2 <> this.iPercentage2 if len(alltrim(str(m.iPercentage2,3)))<>len(alltrim(str(this.iPercentage2,3))) iAvgCharWidth=fontmetric(6,this.lblPercentage3.FontName, ; this.lblPercentage3.FontSize, ; iif(this.lblPercentage3.FontBold,'B','')+ ; iif(this.lblPercentage3.FontItalic,'I','')) this.lblPercentage3.Width=txtwidth(alltrim(str(m.iPercentage2,3)) + '%', ; this.lblPercentage3.FontName,this.lblPercentage3.FontSize, ; iif(this.lblPercentage3.FontBold,'B','')+ ; iif(this.lblPercentage3.FontItalic,'I','')) * iAvgCharWidth this.lblPercentage3.Left=int((this.shpThermBarMaxWidth- ; this.lblPercentage3.Width) / 2)+this.shpThermBar2.Left-1 this.lblPercentage4.Left=this.lblPercentage3.Left endif this.iPercentage2 = m.iPercentage2 this.shpThermBar2.Width = int((this.shpThermBarMaxWidth)*this.iPercentage2/100) this.lblPercentage3.Caption = alltrim(str(m.iPercentage2,3)) + '%' this.lblPercentage4.Caption = this.lblPercentage3.Caption if this.shpThermBar2.Left + this.shpThermBar2.Width -1 >= ; this.lblPercentage4.Left if this.shpThermBar2.Left + this.shpThermBar2.Width - 1 >= ; this.lblPercentage4.Left + this.lblPercentage3.Width - 1 this.lblPercentage4.Width = this.lblPercentage3.Width else this.lblPercentage4.Width = ; this.shpThermBar2.Left + this.shpThermBar2.Width - ; this.lblPercentage4.Left - 1 endif else this.lblPercentage4.Width = 0 endif endif if ! this.lblTask2.Caption == this.cCurrentTask2 this.lblTask2.Caption = this.cCurrentTask2 endif ENDPROC PROCEDURE complete2 * This is the default complete message #define THERMCOMPLETE_LOC "Complete." parameters m.cTask private iSeconds if parameters() = 0 m.cTask = THERMCOMPLETE_LOC endif * this.Show this.Update2(iif(this.iBasis <> 0, this.iBasis, 100), m.cTask) m.iSeconds=seconds() + 1 do while seconds() < m.iSeconds && wait a sec enddo if !empty(this.cThermRef) m.cThermRef = this.cThermRef &cThermRef = .NULL. release thisform endif ENDPROC PROCEDURE settitle2 *- set the lbltitle2 caption PARAMETER cTitle this.lblTitle2.Caption = iif(empty(m.cTitle),'',m.cTitle) ENDPROC PROCEDURE Init *- (c) Microsoft Corporation 1995 *- PARAMETERS cWinTitle, ; cTitle, iBasis, iInterval, ; cTitle2, iBasis2 *- do parent class Init Thermometer::Init(cWinTitle, cTitle, iBasis, iInterval) this.lblTitle2.Caption = iif(empty(m.cTitle2),'',m.cTitle2) this.iBasis2 = iif(empty(m.iBasis2),0,m.iBasis2) ENDPROC %e7oFf+Z<4  55T FmtConverter5T CEXACTvG 5T C5  T %C m.csrcfilebCSET EXACT &oldexact B-T C % 9$C Cannot open CC fSET EXACT &oldexact B-T C C 5   T C T CC E%CC )(=(dBASE IV Generic Design File Version 1.0)%CCC `fLBL|FRM|FRX|LBX5   C %C LBL|LBXuT .LBXT .LBTT .FRXT .FRT %2 (  SET EXACT &oldexact Ba (G0%C .CC ZR0 C!% }SET EXACT &oldexact B-#T.CC ZR!= (  "  ( 0CUpdating report CC @B C .FRX6-  Hf C .FPT0%C  0  %C  0  /= .FPT(  != (  !=  ( %C .TBK0 .TBK T a C  0R%C  0  %C .TBK0A .TBK T a2%C 0w !=  (  T -SET EXACT &oldexact B  %C .FMT0  C C TCN%C oConvObjectbOZB-%y<B C%SET EXACT &oldexact T<B-<SET EXACT &oldexact BaSET EXACT &oldexact B- 5 T CC  5 T CC -%     EC8Incorrect file ID type for a dBASE IV .SCR or .LBL file.SET EXACT &oldexact B-C  5TCC  5  H9  i/%C .SCX0C .SCX  C SET EXACT &oldexact B-T  .SCX 5 T C] FCWh1  C!C "N #N$N%M&M'N(N)N*N+N,M-MuniqueL.M/L0C1C2M 3M 4N5N6N7N8N9N:N;N<N=M>N?N@NANBNCLDNENFNGNHCINJMKNLMMNNMONPMQNRMSNTMUNVMWNXMYNZM[N\M]N^M_L`LaLbNcLdLeLfLgLhLiLjMkNlNmLQ n>n#n$?:>n+n2"CC ּ"nDnEnMnOnUnWnYn[n]n_an`anbndanaanFnG nZ CLEAR READC C n^PUSH KEYC C ON KEY LABEL PGUP DO dopgupC C ON KEY LABEL PGDN DO dopgdnC C !ON KEY LABEL CTRL+PGUP DO ctlpgupC C !ON KEY LABEL CTRL+PGDN DO ctlpgdnC C IF EOF()C C  GO BOTTOMC C ENDIFC C n\ mignavpr.txt ;%C .FRX0C .FRX  C SET EXACT &oldexact B-T  .FRX FCWh1  C!C "N #N$N%M&M'N (N )N *N +M,M-MuniqueL.M/L0C1C2M3M4N5N6N7N8N9N:N;N<N=M>N?N@NANBNCLDNEN_LqLrLsLtLuNvNwLxNyLzL{L|NlN}L~LLLLLLhLNNNNNNmLLLNNLMQ n>n#n$5>n)B >#  ;%C .LBX0C .LBX q C SET EXACT &oldexact B-T  .LBX FCWh1  C!C "N #N$N%M&M'N (N )N *N +M,M-MuniqueL.M/L0C1C2M3M4N5N6N7N8N9N:N;N<N=M>N?N@NANBNCLDNEN_LqLrLsLtLuNvNwLxNyLzL{L|NlN}L~LLLLLLhLNNNNNNmLLLNNLMQ n FCW 5 T C]Jh1 &C'N(N*NQ Fn>n#5 T-CC  5 T CC  HG }C (>n) C (  C T)CC {>n*CC n(CC n)CC n6CC n'CC C ,>n# n$n) )+CN )>n# #C  %2 C !C #)>.C 55 ( "% C ,C C .C  TCC #6%n#b;+n#b( H H(H>n# Hi_ >n$ >n$ >n$ >n$ >n$2_% C w F >$[ >$C T CC % 1>n.!Converted dBASE IV WordWrap band.C  5 &T CCC a-6T CC C T CC C  5T CC T CC % >nwa% >nyaC >n# T CC % l '>n)C C D6C CC TC %   >n& TC %  "% !T_bandrecCC ZA>n&nwa Ta>n#bn$n%Cfn&iif(mod(reccnt,CC ZA) = 0,iif(=1,0,1),)n20a">n& 5J(5  ( 4%C "!C d H"x# #*>n)n#n$ R#5>n)ne-n$n#  x#FFnC TCC  %QBE__$T CQBE__&T C C.C \\T C TCC TC C  T*CC  5$TCCC a-6$TCCC a-6 H$% %7>n* *n1C FN 6 o%F>n* *nw n1C FN 6  %>* *% *&5TCC  C 5TCC 5TCC C I&5TCC 5 TC CC PC  % &'TCC %C &TC- %QBE__  "'T . C TC TC !%V   'TC V>nqa T% 'T@ % ;(% "(T  T 0% Cnewfile.picturebU (>n," " 5 H(M) D(T{T} C)T"T" M+)>n,2M) T T H^)C4   , H), ,TCC % )>n%  **>n& nean$C >nJC nLC njC nNC nPC nRC nTC )%nJCnJ=  *>nJ nJ )%nLCnL=  F+>nL nL %nT{+>nT"nT"%nR+>nR"nR"TC %C >+>n,"@M "TCC % ,%CSn,,D>n,Cn,CSn,=CC ZACn,CSn,\ ,>n&   ,>&  Z/%  ->n#n$#%Cnewfile.commentbUe->n.n.C }-C TC %QBE__.T CQBE__&T C C.C \\T C  H.V/  9.>&  ^.>n&  V/% .>n& R/>n& % .<>n#n% n& n20N/<>n#bn% n& n20 H U2% />n& D0>n& % /<>n#n% n& n20@0<>n#bn% n& n20 HU0[1 0>n>n&1 0>n 0>n 0>n 1>n 81>n [1>n#%Cnewfile.commentbU1>n.C 1C 5TCC %  1>n 2>n %  >2 HC  C4 Hu223 2T DATE() 2T TIME()  3% 23TRECNO() 23T_pageno HC3?4 3>n#n$>n&  4>n#n$% 3'>n&'converted RECNO field' >4>n&   ?4>& #%   C& 43>& TRANSFORM(C&`,"")%C  5 5TC D% '5 TCO#)">n*CC \ # 5 (5TC % OK5CSET EXACT &oldexact B-CC\(\?% O6i>n#bn$n%RECCNTn&reccntn20nan C 5(*7&%Cworkareas[m.warea]bL6!"%CC =QBE__6.O>n#n$ n%C .DBFn2C % T7#)>n/a$>n DOSn!C] H7< 85  #)Tn)~7TC n'n)D#)>n) I '((  Q 2}CO(  (*')#)->*C* D)C) DQDELETE FILE &tempname..dbf DELETE FILE &tempname..fpt C C:  i9FQDELETE FILE &tempname..dbf Fn #~+C+ K9>n*QC C: <Fn>#n#b 5#)-#  T~+n# >;%n) :T . TCO T-Tn) ~$}:-%n' n'  y: Ta!% ;>n#n$n)n*n&" "n' n(n!C]n DOS # T n)>n)n)5#)Tn*-n# ~+n# ;~+C+ ;TC n(n*D#)>n* QC C: QSET EXACT &oldexact. %L< FBaUCSRCFILEOCONVTEMPSTRCFMTCONVERTERCLASSOLDEXACTOLDALIASFHANDLEFSIZEFALLDOWNROOTNAME CPATHNAMELRETVALLISTHERENCTR9CTMPEXTCFEXTCMEXTGOTHERMSETTITLE PARTIALFNAME GTRANSPORTGASHOWME OCONVOBJECTAPARMS LHADERROR CONVERTERFILEVERSFILETYPE NUM_BANDS TARGETNAMEOK2NUKETEMPNAMEPLATFORMUNIQUEID TIMESTAMPOBJTYPEOBJCODENAMEEXPRVPOSHPOSHEIGHTWIDTHSTYLEPICTUREORDERCOMMENTENVIRONBOXCHARFILLCHARTAGTAG2PENREDPENGREENPENBLUEFILLRED FILLGREENFILLBLUEPENSIZEPENPATFILLPATFONTFACE FONTSTYLEFONTSIZEMODERULER RULERLINESGRIDGRIDVGRIDHSCHEMESCHEME2 COLORPAIRLOTYPERANGELOHITYPERANGEHIWHENTYPEWHEN VALIDTYPEVALID ERRORTYPEERRORMESSTYPEMESSAGESHOWTYPESHOW ACTIVTYPEACTIVATE DEACTTYPE DEACTIVATEPROCTYPEPROCCODE SETUPTYPE SETUPCODEFLOATCLOSEMINIMIZEBORDERSHADOWCENTERREFRESHDISABLED SCROLLBARADDALIASTAB INITIALVAL INITIALNUMSPACINGCURPOSNEWFILEMIGNAVPRTXTSTRETCH STRETCHTOPTOPBOTTOMSUPTYPESUPRESTNOREPEATRESETRPT PAGEBREAKCOLBREAK RESETPAGEGENERALDOUBLE SWAPHEADER SWAPFOOTER EJECTBEFOR EJECTAFTERPLAINSUMMARYOFFSET TOPMARGIN BOTMARGIN TOTALTYPE RESETTOTALRESOID SUPALWAYS SUPOVFLOWSUPRPCOLSUPGROUP SUPVALCHNGSUPEXPRTEMPDBF ISRECNOFLDUPDATE NUMFIELDSWORD2NUM READSTRING LINECOUNT BAND_TYPE WHICHEDITR GROUP_TYPENUM_RECS GROUP_EXPR KLUDGENAMEBANDNUMISOPENEACHPAGENEWPAGEUNIQUE FIELDNAMEDATATYPE FIELDTYPEFIELDPIC FIELDPFUNCCALIAS NALIASPOSAVLINE WORKAREASFIELDNUMXTRIM SUPPREPEATISHIDDEN SUMM_FIELDSUMM_OP RESET_WHEN PREDEFTYPDBFNAME FIELDPICT PICT_FUNC DELIMITER1 DELIMITER2ISEDIT CHOICELIST SCROLWIDTHEXPRVARBAND_IDGL_RULERBOOKMARK BANDMESSG DUMP_BANDFIXVERTWAREAALL SCRHEIGHT NMAXWIDTH NMAXHEIGHTCPTAGFOR BANDHEIGHT HASOBJECTS BANDSTARTREPWIDTHCOMPLETE45 T% { #%~+  CO  wT CD% # %WORDWRAPCfBC BC U BANDNUM BANDSTARTFILETYPENEWFILEOBJTYPEHEIGHTCOMMENT DMPRAPBAND DUMPLAYOUT@45TCC 5T C  5T 5    5 T+   .T T C  \#T C CC =T  C >h!T CC  f\g!T CC  `\g0% C  _\ 0 "%C  _\ (T0CC  _\ +T  0CC  ^\T  T  +C >*T CC C  T CC  H0    TC  =TC C >\0    TC  =!CCC C >\g:> C >  aT T C C > \2T  T >" "C >   a0%    T  0%     T  C > &T   BOKUBANDNUMBANDSIZEWORD2NUMFHANDLE WHOLEBANDMARKER PARAGRAPHLINETEXTLINENOLINEMARK FIELDMARKCOLUMN FIELDWIDTHLMARGINLINDENT GOTOFRMFLDNEWFILEHPOSVPOS BANDSTARTFLOATWIDTHOBJTYPEOBJCODEEXPRHEIGHT]45T # G(b H G( B UPSEEKRECSEEKREC NUM_BANDSNEWFILEOBJTYPE45TCC 5TC TCC #)% C #>CCC DC 5 5 +C ,q$CC  d H$  O#CC  zCCC  #CC % C   %    %C+C K>CC CC CC % > K>CC CC CC % C %CC m% ZC C TC  %C  \C ,>z>CC \CC \CC \aCC \C % iC  5 % T T  5 T C  +C =,k$CC  d %  IT C  .>% T C  \ H& C \> C \>2&>>C \>C o>CC  \CC  \CC \CC \% %">CCC \">CCC \% O> T C  C  +5 !"#$%&' T T'+C  }$CC  d T! T T CC TCC % r.T' ' T"C  5( T(5) T)+ !  y$CC  d T! !T#CC " !\T %C " !\ H^ u # T T ) # T ! !T  C % #P H   h ~d ,%     ` T  !  ~ &%     T  !   F~ &%     F# %C*h >*C*+%  />*C*"C X"+>**C*T  > !F% 7 >+ )T ! ! #T$CC % %   o Y>  $%  > (= > .>**"C % $="I# T%C %$=%C* >**+%  T%C X %#>**" %"> C %>T! ! $T  $%  >+)C-, #T)CCC %=.T! ! #1T! !T(CCC %= #D2u)B "Text row" value type incorrect! BOKU/BANDNUMBANDSIZEWORD2NUMFHANDLEBANDEND BANDVERSNFILETYPENEWFILEWIDTHMROWMEXPGOTHERMUPDATEFSIZETEMPDBF GOTOFRMFLDVPOSHPOS BANDSTARTWINFOOBJCODE SCROLLBARHEIGHT BOXDLENGTH BOXDESCRPTOBJTYPEBOXCHARFILLCHAR COLORPAIR BITS2COLORSIZE_ROWTHIS_ROWTHIS_COLSCANNED PACKED_ROW VALUE_TYPE TEXTLENGTHVALUE ATTR_CHANGE BYTESREADNEWCOLORNEWSTYLEEXPRSTYLECVTLINEAVLINECVTSTYLET 4 %C /C 0x C SET EXACT &oldexact. %s F&%Cfield(1,'newfile')bUFQ&%Cfield(1,'tempdbf')bUFQDELETE FILE &tempname..dbf DELETE FILE &tempname..fpt +%C m.targetnamebCC 0 IDELETE FILE &m.targetname. 5  H~ T C FRXFRT T C SCXSCT  T C LBXLBT%C 0EDELETE FILE &m.memoname. BUPMESSAGEFHANDLEOLDALIASNEWFILETEMPDBF TARGETNAMEMEMONAMEFILETYPE,4"BC CC \UBYTESc4 5 T CC % F BBCC UPHANDLE STRLENGTHWORD2NUMXTRIM45T CC % ST C =T C >(+ CC R T C C >=T  "%  C   B BC UPSTRINGPOS4 5 T T BIURLT p@ ( %C !T  C  \T  BC U STYLEWORD RETSTRING STYLESSTRINGBITVALBITISBITSET4 5 T T BGR+BGR + U*% [ B T(%C !T  C  \T % T NT  /( %C h!T  C  \T BC BGRWUATTRWORD RETSTRING COLORSTRINGBITVALBITISBITSETD 4$%C G  6BaB-UBITFIELDBITVAL]4 5 :T CCC f exists. Overwrite it?$xB UFILENAMENRESULT dump_band7D dmprapband~E gotofrmfldK dumplayout>Lfalldown]word2num0` readstringg`xtrim`cvtstyleb bits2color$cisbitsetdok2nukeXevqraarrqAbAAqqARAsR1111AqqAAAAAqqA1!!AAAAAAAqrBsAtAAqqqArqqBAqqAQqqA1qa1qqA1?Q#1qqAA9QQ1qqAA9qQAq21111211QrQAAAQAq11AA1aQAQAaQA11111AA11A1a211A1A11qA1AB1!AA11Q8 !AAAHrBA1Q1QT1qQqA1aaAaA1aAA1r2c1!A1q1qita1qaq1A1aAAA1AAA1AA11AAQAAAAAA1!A1AAAAAABQB1DAA1!1!A21A1AAaaA1!1!11!!QAAA2:!!QBA1111111A1qAq1!!BA111Q1Q11AA1AA1!11q!A1!AA62AA$A1Q!ArAQqqAAAQAqqaAA!BAQA1QAA11QAQ!Q"QAa1qAqAAa1qQQA1AAAAAQ9AaAtQQAAQ!AaABAq3qq1QAA1AA3qrqqa11!AQAQb"AQ8QAAAA3rq"a3qrqaR111A1sqB111A11A11AAA11A11A1AA111AAA1AA1BAQ1aAA!1""AA1AAAAAQaqzA111Q11QAAA1QbAAA1qbqaAaA!AAAqA3!AQ1aQ1!AaAB2AQ1A11111AAA4!AAAaqAAaqAA111AAAA4q!3q1Aa3qq11QAA!A3qaqA1A3raAqA1A1AaqA1Aq4AqAq4t3Th(M>EJ`Tg!Ev;CA*- procedures & code to support navigation *- of migrated DB4 screen files. This code *- is copied to the PROCCODE memo field of *- the SCX file. *- *- (c) Microsoft Corporation 1995 #DEFINE C_BEGFILEMSG_LOC [Beginning of file.] #DEFINE C_ENDFILEMSG_LOC [End of file.] #DEFINE C_ALERTTITL_LOC "Add Records" #DEFINE C_ASKADDMSG_LOC "Do you want to add a new record to the table?" #DEFINE C_BUTTONP "@*HT \K<- WINDOWS _RB619TBY4 607471271;210- WINDOWS _RB70M7116 607471271YhX COMMENT RESERVED L;@VERSION = 0.029 cvtlocate cvtalert.h },BArial, 0, 9, 5, 15, 12, 21, 3, 0 Arial, 0, 8, 5, 14, 11, 20, 3, 0  cvtalertfrx cvtalert.hPixelsClass4formPixels ƀ%UEBT2\ 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE Command1.Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE Command1.Click LOCAL m.nfh IF nOptDev = N_DEVMODE IF EMPTY(m.cCodeFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cCodeFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADFNAME_LOC) THISFORM.txtCodeFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cCodeFile) ENDIF ENDIF THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE Command2.Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE Command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC  lblAlertMsglabel H%Fi UUT $TCC Code file:PRG@#TCC C]6 3%C    C     T aU COLDCODE CCODEFILETHISFORM TXTCODEFILEREFRESHLLOGCLOGFILECMD1COMMAND1ENABLEDClick,1qA11AA2) chkSet30Def cvtalert.vcxcheckboxFontBold = .F. FontName = "Arial" FontSize = 8 WordWrap = .T. Caption = "" Height = 42 Left = 12 Top = 7 Width = 352 Name = "lblAlertMsg" labelform,Alert displayed when converting non-projectsClass8form cvtalertscx cvtalertpjx33 %UTCUTHISFONTBOLDTHISFORMSETBOLD$IUTHISFORM HELPCONTEXTIDInit,Clickj1A212Nl) cvtalertscx. %)R 8UT%C  T- %C T-TaTaU THISFORM CMDLOGFILEENABLEDTHISVALUECLOGFILECMD1COMMAND1CLICKClick,1aAAAAA1$)checkbox;PROCEDURE Init THIS.caption = C_CONVERTBOTH_LOC ENDPROC Top = 62 Left = 24 Height = 25 Width = 344 FontBold = .F. FontSize = 8 Caption = "Check1" ControlSource = "m.iBothPlat" Name = "chkBothPlat"  chkBothPlatcheckboxcheckbox2  %UT <UNCVTTHISFORMTCUTHISFONTBOLDTHISFORMSETBOLDClick,InitY1q3A1/Jl)FontBold = .F. FontName = "Arial" FontSize = 8 WordWrap = .T. Caption = "" Height = 49 Left = 24 Top = 12 Width = 352 Name = "lblAlertMsg"  cvtalertscx. lblAlertMsglabellabelwPROCEDURE Click HELP ID THISFORM.HelpContextID ENDPROC PROCEDURE Init THIS.FontBold = THISFORM.SetBold() ENDPROC  cvtalertscx.d*setbold Return logical based on OS *configurefont Set font characteristics for specific platform  ScaleMode = 3 Height = 102 Width = 390 DoCreate = .T. AutoCenter = .T. BorderStyle = 2 Caption = "Visual FoxPro Converter" Closable = .F. MaxButton = .F. MinButton = .F. WindowType = 1 AlwaysOnTop = .T. HelpContextID = 1895825429 Name = "cvtalertfrx" PROCEDURE cmd1.Command1.Click THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE cmd1.Command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC PROCEDURE cmdHelp.Click m.ncvt = 3 RELEASE THISFORM ENDPROC  "R%UEBT2\ 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC PROCEDURE command1.Click LOCAL m.nfh IF nOptDev = N_DEVMODE IF EMPTY(m.cCodeFile) *- this should never happen RETURN ENDIF *- make sure file can be created m.nfh = FCREATE(m.cCodeFile) IF m.nfh = -1 *- problem creating file =MESSAGEBOX(E_BADFNAME_LOC) THISFORM.txtCodeFile.SetFocus RETURN ELSE =FCLOSE(m.nfh) ERASE (m.cCodeFile) ENDIF ENDIF THISFORM.cmd1.Value = 1 THISFORM.cmd1.Click ENDPROC PROCEDURE command1.Init THIS.FontBold = THISFORM.SetBold() ENDPROC PROCEDURE command2.Click THISFORM.cmd1.Value = 2 THISFORM.cmd1.Click ENDPROC PROCEDURE command2.Init THIS.FontBold = THISFORM.SetBold() ENDPROC  commandgroup commandgroup cvtalertscx. optiongroup1 optiongroup optiongroupd*setbold Determine if bold should be set, based on OS *configurefont Set font properties for form a HH8%U4 5 %C IT  T C .LOGbT  )TCC Log filename: LOG@'TCC C ]6 :%C  %  C     T a-T -U COLDLOGCLOGFILE CFILENAMETHISFORM TXTLOGFILEREFRESHNOPTDEV CCODEFILECMD1COMMAND1ENABLEDClick,1AsAAA2H)HBArial, 0, 9, 5, 15, 12, 21, 3, 0 Arial, 0, 8, 5, 14, 11, 20, 3, 0 Top = 113 Left = 240 Height = 25 Width = 142 FontSize = 8 Caption = "Check1" ControlSource = "m.lRecurse" Name = "chkRecurse"  cvtdlog30scx. chkRecursecheckboxformScaleMode = 3 Height = 184 Width = 390 DoCreate = .T. AutoCenter = .T. BorderStyle = 2 Caption = "Visual FoxPro Converter" Closable = .F. MaxButton = .F. MinButton = .F. FillStyle = 1 WindowType = 1 HelpContextID = 1895825429 Name = "cvtalertscx" form cvtalert.h },checkbox:PROCEDURE Init THIS.caption = C_CONVERTVCX_LOC ENDPROC  cvtdlog30scx.DPROCEDURE CHKBOTHPLAT.Init THIS.Caption = C_RETAIN30_LOC ENDPROC  cvtalertpjx3BArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0  cvtalertcat cvtalert.hPixelsClass4 cvtalertscx cvtalertcat}Top = 113 Left = 144 Height = 25 Width = 93 FontSize = 8 Caption = "Check1" ControlSource = "m.lVCX" Name = "chkVCX" chkVCXcheckboxcheckboxform..\cvtalert.vcx cvtalert.h }, cvtalertpjx cvtalert30scx1 0b%&U H} 5b$T CCCJC CJ\g%  ^Ba 3uBa2}B-UIVERSION\ H U 3U!CFontNameGenevaCFontSize UTHISSETALL74T U CALERTMSGTHIS LBLALERTMSGCAPTION CONFIGUREFONTCMD1COMMAND1SETFOCUSsetbold, configurefontInit31tA1qAqAq2A2s231L)ClassBArial, 0, 9, 5, 15, 12, 13, 3, 0 Arial, 0, 8, 5, 14, 11, 12, 3, 0  cvtalert.hPixelsClass2 cvtalertfrx cvtalert30scx8PROCEDURE Init THIS.Caption = C_RETAIN30_LOC ENDPROC  cvtalert30scx. cvtalertcat. cmdLogFileTop = 46 Left = 24 Height = 25 Width = 344 FontBold = .F. FontSize = 8 Caption = "Check1" ControlSource = "m.iBothPlat" DisabledBackColor = 192,192,192 Name = "chkSet30Def"  chkSet30Defcheckboxcheckboxform cvtalert.vcx cvtalert.h },AAutoSize = .F. ButtonCount = 2 BorderStyle = 0 Value = 1 ControlSource = "m.nCvt" Height = 39 Left = 19 TerminateRead = .T. Top = 137 Width = 228 TabIndex = 1 Name = "cmd1" Command1.Top = 5 Command1.Left = 5 Command1.Height = 29 Command1.Width = 94 Command1.FontBold = .F. Command1.FontName = "Arial" Command1.FontSize = 8 Command1.Caption = "Continue" Command1.Default = .T. Command1.StatusBarText = "Click to continue with conversion." Command1.TabIndex = 1 Command1.Name = "command1" Command2.Top = 5 Command2.Left = 129 Command2.Height = 29 Command2.Width = 94 Command2.FontBold = .F. Command2.FontName = "Arial" Command2.FontSize = 8 Command2.Cancel = .T. Command2.Caption = "Cancel" Command2.StatusBarText = "Click to cancel the conversion." Command2.TabIndex = 2 Command2.Name = "command2" PROCEDURE Click IF nOptDev = N_DEVMODE THISFORM.cmdCodeFile.Enabled = .T. THISFORM.cmdCodeFile.Click *-THISFORM.txtCodeFile.Enabled = .T. && commented these out -- don;t allow user to type in filename (jd 03/11/96) *-THISFORM.txtCodeFile.TabStop = .T. *-THISFORM.txtCodeFile.ReadOnly = .F. IF EMPTY(m.cCodeFile) THISFORM.cmd1.command1.Enabled = .F. ENDIF ELSE THISFORM.cmdCodeFile.Enabled = .F. THISFORM.txtCodeFile.Enabled = .F. THISFORM.txtCodeFile.TabStop = .F. THISFORM.txtCodeFile.ReadOnly = .T. THISFORM.cmd1.command1.Enabled = .T. ENDIF m.lDevMode = (noptDev = N_DEVMODE) ENDPROC PROCEDURE option2.Message RETURN C_VISUALCONVMSG_LOC ENDPROC ButtonCount = 2 BorderStyle = 0 Value = 1 ControlSource = "nOptDev" Height = 49 Left = 19 Top = 86 Width = 148 TabIndex = 3 Name = "optiongroup1" Option1.FontBold = .F. Option1.FontName = "Arial" Option1.FontSize = 8 Option1.Caption = "\)FontBold = .F. FontSize = 8 ControlSource = "m.cBackDir" Enabled = .F. Format = "K" Height = 25 InputMask = (REPL("X",254)) Left = 171 ReadOnly = .T. TabIndex = 3 TabStop = .F. Top = 90 Width = 170 DisabledForeColor = 0,0,0 Name = "txtBackDir" FontBold = .F. FontName = "Arial" FontSize = 8 ControlSource = "m.cLogFile" Enabled = .F. Format = "K" Height = 25 InputMask = (REPL("X",254)) Left = 171 ReadOnly = .T. StatusBarText = 'Specifies the file that will hold the conversion log, if "Create log file" is checked.' TabIndex = 4 TabStop = .F. Top = 97 Width = 170 DisabledForeColor = 0,0,0 Name = "txtLogFile" Top = 97 Left = 24 Height = 25 Width = 114 FontBold = .F. FontName = "Arial" FontSize = 8 Caption = "Create \ 0 CLEAR EVENTS RELEASE THISFORM ENDIF ENDPROC $Height = 226 Width = 390 DoCreate = .T. MaxButton = .F. Name = "cvtalertcat" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option1.Name = "option1" optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.option2.Name = "option2" optiongroup1.ControlSource = "nOptDev" optiongroup1.Height = 49 optiongroup1.Top = 128 optiongroup1.Width = 133 optiongroup1.TabIndex = 6 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.TabIndex = 1 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 129 cmd1.command2.TabIndex = 2 cmd1.command2.Name = "command2" cmd1.Top = 179 cmd1.TabIndex = 1 cmd1.Name = "cmd1" txtcodefile.Left = 171 txtcodefile.TabIndex = 7 txtcodefile.Top = 143 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 143 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 8 cmdcodefile.Name = "cmdcodefile" cmdHelp.Top = 184 cmdHelp.Name = "cmdHelp" lblalertmsg.Height = 49 lblalertmsg.Left = 24 lblalertmsg.Top = 12 lblalertmsg.Width = 340 lblalertmsg.Name = "lblalertmsg" chkBothPlat.Top = 62 chkBothPlat.Left = 24 chkBothPlat.Height = 25 chkBothPlat.Width = 344 chkBothPlat.Name = "chkBothPlat" Height = 251 Width = 390 DoCreate = .T. MaxButton = .F. Name = "cvtalertpjx" optiongroup1.option1.Value = 1 optiongroup1.option1.Left = 5 optiongroup1.option1.Top = 5 optiongroup1.option1.Name = "option1" optiongroup1.option2.Value = 0 optiongroup1.option2.Left = 5 optiongroup1.option2.Top = 25 optiongroup1.option2.Name = "option2" optiongroup1.Top = 153 optiongroup1.TabIndex = 8 optiongroup1.Name = "optiongroup1" cmd1.command1.Top = 5 cmd1.command1.Left = 5 cmd1.command1.Name = "command1" cmd1.command2.Top = 5 cmd1.command2.Left = 129 cmd1.command2.Name = "command2" cmd1.ControlSource = "nCvt" cmd1.Top = 207 cmd1.TabIndex = 1 cmd1.Name = "cmd1" txtcodefile.Left = 171 txtcodefile.TabIndex = 9 txtcodefile.Top = 168 txtcodefile.Name = "txtcodefile" cmdcodefile.Top = 168 cmdcodefile.Left = 351 cmdcodefile.TabIndex = 10 cmdcodefile.Name = "cmdcodefile" cmdHelp.Top = 212 cmdHelp.Name = "cmdHelp" lblalertmsg.Height = 49 lblalertmsg.Left = 24 lblalertmsg.Top = 12 lblalertmsg.Width = 340 lblalertmsg.Name = "lblalertmsg" chkBothPlat.Top = 62 chkBothPlat.Left = 24 chkBothPlat.Height = 25 chkBothPlat.Width = 344 chkBothPlat.Name = "chkBothPlat" check1.Top = 122 check1.Left = 24 check1.Height = 25 check1.Width = 114 check1.TabIndex = 5 check1.Name = "check1" txtlogfile.Left = 171 txtlogfile.TabIndex = 6 txtlogfile.Top = 122 txtlogfile.Name = "txtlogfile" cmdlogfile.Top = 122 cmdlogfile.Left = 351 cmdlogfile.TabIndex = 7 cmdlogfile.Name = "cmdlogfile" #DEFINE C_CONVERSION_LOC "Microsoft Visual FoxPro Converter Utility Version 6.00a 01/01/98)" *- CONVERT.H *- *- Header file for Convert.PRG *- (c) Microsoft Corporation 1995 *- debug #DEFINES -- no need to localize these #DEFINE L_SHOWVERSION .F. #DEFINE L_DEBUG .F. #DEFINE L_USEVCX .F. #DEFINE L_DEBUGSUSPEND .F. #DEFINE C_LATESTVER "06.00.8000.00" *- current version numbers #DEFINE C_SCXVERSTAMP "VERSION = 3.00" #DEFINE C_PJXVERSTAMP 260 && 1.3 *- various common special chars #DEFINE C_CRLF CHR(13)+CHR(10) && return/linefeed #DEFINE C_CR CHR(13) && return #DEFINE C_LF CHR(10) && linefeed #DEFINE C_TAB CHR(9) && tab #DEFINE C_TAB2 CHR(9)+CHR(9) && 2 tabs #DEFINE C_NULL CHR(0) && null char *- error messages (need localizing) #DEFINE E_INVALIDFILE_LOC "Invalid file selected." #DEFINE E_INVALPJX_LOC "Invalid Project file selected." #DEFINE E_INVALFPC_LOC "Invalid Catalog file selected." #DEFINE E_INVALDBF_LOC "Invalid file format." #DEFINE E_WRONGFMT_LOC "Screen file is an unknown format." #DEFINE E_WRONGFMT2_LOC "Report or label file is an unknown format." #DEFINE E_NOSCX_LOC "You must select an SCX file." #DEFINE E_NOOPEN_LOC "Cannot open " #DEFINE E_NOCLOSE_LOC "Cannot close " #DEFINE E_FILE_LOC "File " #DEFINE E_NOSCXFILE_LOC "Cannot use converter - missing TAZMAIN.SCX file." #DEFINE E_HAS20FILE_LOC "You have selected a FoxPro 2.0 file. The Transporter must first convert it to a 2.6 format." #DEFINE E_NOTRANS_LOC "The transporter program could not be found. Conversion cancelled." #DEFINE E_NOPLATOBJS_LOC "You have selected a FoxPro screen without any current platform objects. The Transporter must first convert it." #DEFINE E_NODIR_LOC "Error creating backup directory. Operation cancelled." #DEFINE E_NOFILE_LOC "Could not locate file listed in " #DEFINE E_OPCANC_LOC ". Operation cancelled." #DEFINE E_NOCONVERT_LOC "It was not converted." #DEFINE E_NOCONVERT1_LOC " not found. " + E_NOCONVERT_LOC #DEFINE E_NOCONVERT2_LOC " could not be opened. " + E_NOCONVERT_LOC #DEFINE E_NOCONVERT3_LOC " is read-only. " + E_NOCONVERT_LOC #DEFINE E_NOCONVERT4_LOC " is hidden or is a system file. " + E_NOCONVERT_LOC #DEFINE E_NOBACKUP_LOC ". Not backed up." #DEFINE E_NOSTART_LOC "There was a problem starting the Converter." #DEFINE E_BADFOX1_LOC "You must be using FoxPro version " #DEFINE E_BADFOX2_LOC " or later to run converter." #DEFINE E_NOOPENSRC_LOC "Cannot open source file " #DEFINE E_FILENOEXIST_LOC "File @1 does not exist." #DEFINE E_BADCODEPAGE_LOC "Code page @1 is invalid." #DEFINE E_BADCALL_LOC "The wrong parameters were passed to the converter. To convert files, open them from the File menu." #DEFINE E_FILEOPEN_LOC "File is already open." #DEFINE E_NA_LOC "Feature not available yet." #DEFINE E_NOCREATE_LOC "Error creating " #DEFINE E_NOWRITE_LOC "Error writing to " #DEFINE E_NOFINDS_LOC "Some files are missing or could not be located. They will not be converted. Continue?" #DEFINE E_FATAL_LOC "An error occurred in the Converter and it cannot continue." #DEFINE E_FATAL2_LOC " The error has been logged in " #DEFINE E_FATAL3_LOC ". Open the logfile?" #DEFINE E_FATAL1_LOC "Fatal Error in Converter: " #DEFINE E_ERR1_LOC "Error: " #DEFINE E_ERR2_LOC "Error Number: " #DEFINE E_ERR3_LOC "Method: " #DEFINE E_ERR4_LOC "Line: " #DEFINE E_ERR5_LOC "Offending Code: " #DEFINE E_ERR6_LOC "File being processed: " #DEFINE E_ERR7_LOC "Not recorded" #DEFINE E_NOMIG_LOC "Unable to migrate file." #DEFINE E_MIGSTART_LOC "Begin migration to FoxPro 2.x format." #DEFINE E_MIGEND_LOC "Successfully completed migration to FoxPro 2.x format." #DEFINE E_MACROEXPR1_LOC "Cannot process macro expression in generator directive." #DEFINE E_PROPTOOLONG_LOC "Expression too long at Record # " #DEFINE E_WARNING_LOC "WARNING" #DEFINE E_EXPRNOCONV_LOC "The expression was not converted. " #DEFINE E_SEELOGFILE_LOC "See the log file for details." #DEFINE E_DISKFULL_LOC "The disk is full, and the converter cannot continue. The log file cannot be saved to disk." #DEFINE E_NOINCLUDE_LOC "The file could not be compiled. Check the .ERR file for details and compile manually." #DEFINE E_NOINCLUDE1_LOC "The file " #DEFINE E_NOINCLUDE2_LOC " could not be compiled. Check the .ERR file for details and compile manually." *- Other strings to localize #DEFINE C_CONVERT1_LOC "Do you want to convert the screen " #DEFINE C_CONVERT2_LOC " to latest Visual FoxPro format?" && (The original file will still be available)." #DEFINE C_CONVERT3_LOC "Do you want to convert the " #DEFINE C_CONVERT3p_LOC "project " #DEFINE C_CONVERT3c_LOC "catalog " #DEFINE C_CONVERT3r_LOC "report " #DEFINE C_CONVERT3l_LOC "label " #DEFINE C_CONVERT4_LOC " (and all of the forms and reports within it) to latest Visual FoxPro format?" && (The original files will still be available)." #DEFINE C_GETP1_LOC "Select Screen File:" #DEFINE C_INSMESS1_LOC "*- Start of #INSERT directive - " #DEFINE C_INSMESS2_LOC "*- End of #INSERT directive" #DEFINE C_INSMESS3_LOC "*- Could not find #INSERT directive file" #DEFINE C_PROCESS_LOC "Processing: " #DEFINE C_SSETS_LOC " screen sets." #DEFINE C_NEWFORM_LOC "New Form: " #DEFINE C_OF_LOC " of " #DEFINE C_PROJSTAT_LOC "Project Status" #DEFINE C_PROJNAME_LOC "Project: " #DEFINE C_COMPLETE_LOC "Completed: " #DEFINE C_PERCHAR_LOC "%" #DEFINE C_BACKFILES_LOC "Backing up project files..." #DEFINE C_MAXFILES_LOC " files." #DEFINE C_OVERWRITE_LOC " exists. Overwrite it?" #DEFINE C_SAYSCOMMENT_LOC "*- 2.6 SAYs that need to be refreshed" #DEFINE C_THERMMSG1_LOC "Converting project " #DEFINE C_THERMMSG2_LOC "Converting screen " #DEFINE C_THERMMSG3_LOC "Converting format file " #DEFINE C_THERMMSG4_LOC "Converting catalog file " #DEFINE C_THERMMSG5_LOC "Converting file " #DEFINE C_THERMMSG6_LOC "Transporting project " #DEFINE C_THERMMSG7_LOC "Transporting screen " #DEFINE C_THERMMSG8_LOC "Converting report " #DEFINE C_THERMMSG9_LOC "Transporting report " #DEFINE C_THERMMSG10_LOC "Updating report " #DEFINE C_THERMMSG11_LOC "Migrating screen " #DEFINE C_THERMMSG12_LOC "Migrating report " #DEFINE C_THERMMSG13_LOC "Migrating format file " #DEFINE C_THERMTITLE_LOC "" #DEFINE C_PROJTASK1_LOC "Converting screens..." #DEFINE C_PROJTASK2_LOC "Converting other files..." #DEFINE C_PROJTASK3_LOC "Migrating files..." #DEFINE C_PROJTASK4_LOC "Converting project..." #DEFINE C_PROJTASK5_LOC "Converting catalog..." #DEFINE C_PROJTASK6_LOC "Setting 3.0 defaults..." #DEFINE C_CONVMSG_LOC "Converted." + CHR(13) #DEFINE C_NOTCONVMSG_LOC "Not converted." #DEFINE C_FILECONV_LOC "File already converted" #DEFINE C_CREATMSG_LOC ". SPR file created." #DEFINE C_NOCONVMSG_LOC "No conversion necessary." #DEFINE C_CONVLOG_LOC "Conversion Log for " #DEFINE C_CONVVERS_LOC "Converter: " #DEFINE C_LOGEND_LOC "*- end of log" #DEFINE C_CODESRC_LOC "Miscellaneous code" #DEFINE C_CODEHDR_LOC "*- Code from " #DEFINE C_CODEHDR1_LOC "*----------------------------------------------" + C_CRLF #DEFINE C_LOCFILE_LOC "Locate " #DEFINE C_LOCFILE2_LOC "Locate file:" #DEFINE C_LOCFILE3_LOC "The file " + JustFName(cTmpFname) + " could not be found. Would you like to try and locate the file?" #DEFINE C_ERRLOG_LOC "Error" && name of logfile in case of error and no logfile specified -- DON'T EXCEED 6 CHARACTERS #DEFINE C_BEGIN_LOC "Begin Conversion" #DEFINE C_END_LOC "End Conversion" #DEFINE C_SUCCESSCONV_LOC "Successful conversion took " #DEFINE C_SECONDS_LOC " seconds." #DEFINE C_COMPILE_LOC "Compiling." #DEFINE C_ESCAPE_LOC "Escape was pressed. Cancel conversion?" #DEFINE C_ESCLOGMSG_LOC "Conversion cancelled at user's request." #DEFINE C_MIGRATEMSG_LOC "Migrating file..." #DEFINE C_FILEFOUNDMSG_LOC "File is already in this project. It was not converted or added to the project." #DEFINE C_MACLOGMSG_LOC "(Macintosh version)" #DEFINE C_WHEREIS_LOC "Where is " *- comments that will be inserted into code #DEFINE C_PARM1_CMMT_LOC "*- [CONVERTER] Parameter statement generated by Converter" + CHR(13) + "*- [CONVERTER] Pass these values along to the new form" + CHR(13) #DEFINE C_PARM2_CMMT_LOC "*- [CONVERTER] We need to add special code in case no parms are passed, so" + CHR(13) + "*- [CONVERTER] we don't pass on default parms that shouldn't be there" + CHR(13) #DEFINE C_OPENTAB_CMMT_LOC "*- [CONVERTER] Open tables so that fields are available" + CHR(13) #DEFINE C_SETIDX_CMMT_LOC "*- [CONVERTER] Open old-style IDX index file specified in screen environment" + CHR(13) #DEFINE C_PROCS_CMMT_LOC "*- [CONVERTER] Begin CLEANUP and other procedures from 2.x Form" + CHR(13) #DEFINE C_PROCSEND_CMMT_LOC "*- [CONVERTER] End CLEANUP and other procedures from 2.x Form" + CHR(13) #DEFINE C_VALID_CMMT_LOC "*- [CONVERTER] Begin VALID/WHEN procedures from 2.x Form" + CHR(13) #DEFINE C_VALIDEND_CMMT_LOC "*- [CONVERTER] End VALID/WHEN procedures from 2.x Form" + CHR(13) #DEFINE C_INCLUDE_CMMT_LOC "*- [CONVERTER] New INCLUDE file, with #DEFINEs" + CHR(13) #DEFINE C_EXTERN_CMMT_LOC "*- [CONVERTER] Declare arrays" + CHR(13) #DEFINE C_SYS16_CMMT_LOC "*- [CONVERTER] SYS(16) replacement to accommodate relocated code" + CHR(13) #DEFINE C_SYS16END_CMMT_LOC "*- [CONVERTER] End of SYS(16) replacement" + CHR(13) #DEFINE C_RETVAL_CMMT_LOC "*- [CONVERTER] _rval will hold return value" + CHR(13) #DEFINE C_SETUP_CMMT_LOC "*- [CONVERTER] Remember environment" + CHR(13) #DEFINE C_CLEANUP_CMMT_LOC "*- [CONVERTER] Restore environment" + CHR(13) #DEFINE C_MACRO_CMMT_LOC "*- [CONVERTER] Cannot process macro in generator directive" + CHR(13) #DEFINE C_H_CMMT_LOC "*- [CONVERTER] Header File for " #DEFINE C_SETSKIP_CMMT_LOC "*- [CONVERTER] set SET SKIP TO" + CHR(13) #DEFINE C_FRXDESTROY_LOC "*- [CONVERTER] Reset tables for compatibility" + CHR(13) #DEFINE C_CONV_CMMT_LOC "*- [CONVERTER] " #DEFINE C_GOTO1_CMMT_LOC "*- [CONVERTER] Reset record pointers" + CHR(13) #DEFINE C_GOTO2_CMMT_LOC "*- [CONVERTER] Remember record pointers" + CHR(13) #DEFINE C_GOTOVAR1_CMMT_LOC "*- [CONVERTER] Declare variables for record pointers" + CHR(13) #DEFINE C_GOTOVAR2_CMMT_LOC "*- [CONVERTER] Release variables for record pointers" + CHR(13) #DEFINE C_SELECTFILE_LOC "Select the file or directory to update." *- These #defines are used by the LOCWORD procedure #DEFINE C_TABLE_LOC "Table" #DEFINE C_QUERY_LOC "Query" #DEFINE C_FORM_LOC "Screen" #DEFINE C_REPORT_LOC "Report" #DEFINE C_LABEL_LOC "Label" #DEFINE C_PROGRAM_LOC "Program" #DEFINE C_CATALOG_LOC "Catalog" *- file type parameters that will be passed to converter *- do not localize #DEFINE C_SCREENTYPEPARM "SCREEN" #DEFINE C_PROJECTTYPEPARM "PROJECT" #DEFINE C_CATALOGTYPEPARM "CATALOG" #DEFINE C_REPORTTYPEPARM "REPORT" #DEFINE C_MENUTYPEPARM "MENU" #DEFINE C_LABELTYPEPARM "LABEL" #DEFINE C_DB4QUERYTYPEPARM "DB4QUERY" #DEFINE C_DB4FORMTYPEPARM "DB4FORM" #DEFINE C_DB4REPORTTYPEPARM "DB4REPORT" #DEFINE C_DB4LABELTYPEPARM "DB4LABEL" #DEFINE C_DB4VERSIONPARM "DBASE" #DEFINE C_FOXVERSIONPARM "FOX" #DEFINE C_FMTTYPEPARM "FORMAT" #DEFINE C_FPLUSFRXTYPEPARM "FB+FRX" *- SCX Array numbers #DEFINE A_PLATFORM 1 #DEFINE A_UNIQUEID 2 #DEFINE A_TIMESTAMP 3 #DEFINE A_OBJTYPE 4 #DEFINE A_OBJCODE 5 #DEFINE A_NAME 6 #DEFINE A_EXPR 7 #DEFINE A_VPOS 8 #DEFINE A_HPOS 9 #DEFINE A_HEIGHT 10 #DEFINE A_WIDTH 11 #DEFINE A_STYLE 12 #DEFINE A_PICTURE 13 #DEFINE A_ORDER 14 #DEFINE A_UNIQUE 15 #DEFINE A_COMMENT 16 #DEFINE A_ENVIRON 17 #DEFINE A_BOXCHAR 18 #DEFINE A_FILLCHAR 19 #DEFINE A_TAG 20 #DEFINE A_TAG2 21 #DEFINE A_PENRED 22 #DEFINE A_PENGREEN 23 #DEFINE A_PENBLUE 24 #DEFINE A_FILLRED 25 #DEFINE A_FILLGREEN 26 #DEFINE A_FILLBLUE 27 #DEFINE A_PENSIZE 28 #DEFINE A_PENPAT 29 #DEFINE A_FILLPAT 30 #DEFINE A_FONTFACE 31 #DEFINE A_FONTSTYLE 32 #DEFINE A_FONTSIZE 33 #DEFINE A_MODE 34 #DEFINE A_RULER 35 #DEFINE A_RULERLINES 36 #DEFINE A_GRID 37 #DEFINE A_GRIDV 38 #DEFINE A_GRIDH 39 #DEFINE A_SCHEME 40 #DEFINE A_SCHEME2 41 #DEFINE A_COLORPAIR 42 #DEFINE A_LOTYPE 43 #DEFINE A_RANGELO 44 #DEFINE A_HITYPE 45 #DEFINE A_RANGEHI 46 #DEFINE A_WHENTYPE 47 #DEFINE A_WHEN 48 #DEFINE A_VALIDTYPE 49 #DEFINE A_VALID 50 #DEFINE A_ERRORTYPE 51 #DEFINE A_ERROR 52 #DEFINE A_MESSTYPE 53 #DEFINE A_MESSAGE 54 #DEFINE A_SHOWTYPE 55 #DEFINE A_SHOW 56 #DEFINE A_ACTIVTYPE 57 #DEFINE A_ACTIVATE 58 #DEFINE A_DEACTTYPE 59 #DEFINE A_DEACTIVATE 60 #DEFINE A_PROCTYPE 61 #DEFINE A_PROCCODE 62 #DEFINE A_SETUPTYPE 63 #DEFINE A_SETUPCODE 64 #DEFINE A_FLOAT 65 #DEFINE A_CLOSE 66 #DEFINE A_MINIMIZE 67 #DEFINE A_BORDER 68 #DEFINE A_SHADOW 69 #DEFINE A_CENTER 70 #DEFINE A_REFRESH 71 #DEFINE A_DISABLED 72 #DEFINE A_SCROLLBAR 73 #DEFINE A_ADDALIAS 74 #DEFINE A_TAB 75 #DEFINE A_INITIALVAL 76 #DEFINE A_INITIALNUM 77 #DEFINE A_SPACING 78 #DEFINE A_CURPOS 79 *- PJX Array numbers #DEFINE A_OPENFILES 1 #DEFINE A_CLOSEFILES 2 #DEFINE A_DEFWINDOWS 3 #DEFINE A_RELWINDOWS 4 #DEFINE A_READMODAL 5 #DEFINE A_GETBORDERS 6 #DEFINE A_READCYCLE 7 #DEFINE A_READNOLOCK 8 #DEFINE A_MULTIREADS 9 #DEFINE A_ASSOCWINDS 10 *- SCX/PJX Array property mappings #DEFINE M_READONLY "ReadOnly" #DEFINE M_READCYCLE "ReadCycle" #DEFINE M_READNOLOCK "ReadLock" #DEFINE M_READNOMOUSE "ReadNoMouse" #DEFINE M_READSAVE "ReadSave" #DEFINE M_READTIME "ReadTimeout" #DEFINE M_READOBJ "ReadObject" #DEFINE M_ASSOCWINDS "WindowList" #DEFINE M_NAME "Name" #DEFINE M_DATASOURCE "ControlSource" #DEFINE M_CAPTION "Caption" #DEFINE M_EXPR "RowSource" #DEFINE M_VPOS "Top" #DEFINE M_HPOS "Left" #DEFINE M_HEIGHT "Height" #DEFINE M_WIDTH "Width" #DEFINE M_LSTYLE "RowSourceType" #DEFINE M_STYLE "Style" #DEFINE M_PICTURE "" #DEFINE M_FPICTURE "Picture" && "Bitmap" Wallpaper #DEFINE M_ICON "Icon" && Icon (Windows) #DEFINE M_UNIQUE "" #DEFINE M_ENVIRON "" #DEFINE M_BOXCHAR "" #DEFINE M_FILLCHAR "DataType" #DEFINE M_TAG "" #DEFINE M_TAGD "BottomCaption" && DOS Only #DEFINE M_TAG2 "" #DEFINE M_PEN "ForeColor" #DEFINE M_BACKCOLOR "BackColor" #DEFINE M_FILLCOLOR "FillColor" #DEFINE M_PENSIZE "BorderWidth" #DEFINE M_PENPAT "BorderStyle" #DEFINE M_BORDERCOLOR "BorderColor" #DEFINE M_FILLPAT "FillStyle" #DEFINE M_FONTFACE "FontName" #DEFINE M_FONTSIZE "FontSize" #DEFINE M_FONTBOLD "FontBold" #DEFINE M_FONTITAL "FontItalic" #DEFINE M_FONTUNDER "FontUnderline" #DEFINE M_FONTSHADOW "FontShadow" #DEFINE M_FONTOUTLINE "FontOutline" #DEFINE M_FONTCONDENSE "FontCondense" #DEFINE M_FONTEXTEND "FontExtend" #DEFINE M_FONTOPAQ "FontOpaque" #DEFINE M_FONTTRANS "FontTransparent" #DEFINE M_MODE "BackStyle" #DEFINE M_RULER "" #DEFINE M_RULERLINES "" #DEFINE M_GRID "" #DEFINE M_GRIDV "" #DEFINE M_GRIDH "" #DEFINE M_SCHEME "ColorScheme" #DEFINE M_SCHEME2 "" #DEFINE M_COLORPAIR "" #DEFINE M_RANGELO "LowValue" #DEFINE M_RANGEHI "HighValue" #DEFINE M_RANGE2LO "RangeLow" #DEFINE M_RANGE2HI "RangeHigh" #DEFINE M_1STELEMENT "FirstElement" #DEFINE M_NUMELEMENTS "NumberOfElements" #DEFINE M_WHEN "ReadWhen" #DEFINE M_WHEN2 "When" #DEFINE M_VALID "ReadValid" #DEFINE M_VALID2 "Valid" #DEFINE M_ERROR "ErrorMessage" && Error method #DEFINE M_MESSAGE "Message" && "StatusBarText" #DEFINE M_SHOW "ReadShow" #DEFINE M_ACTIVATE "ReadActivate" #DEFINE M_DEACTIVATE "ReadDeactivate" #DEFINE M_PROCCODE "" #DEFINE M_CLEANUP "Unload" #DEFINE M_SETUP1 "Load" #DEFINE M_SETUP2 "Load" &&??? may change #DEFINE M_FLOAT "Movable" #DEFINE M_CLOSE "Closable" #DEFINE M_MINIMIZE "MinButton" #DEFINE M_MAXIMIZE "MaxButton" #DEFINE M_CONTROLBOX "ControlBox" #DEFINE M_GROW "Sizable" #DEFINE M_MDI "MDIChild" #DEFINE M_DESKTOP "Desktop" #DEFINE M_WINDOW "Window" #DEFINE M_BORDER "BorderStyle" #DEFINE M_SHADOW "Shadow" #DEFINE M_CENTER "AutoCenter" #DEFINE M_HALF "HalfHeightCaption" #DEFINE M_REFRESH "" #DEFINE M_ENABLED "Enabled" #DEFINE M_SCROLLBAR "ScrollBars" #DEFINE M_ADDALIAS "" #DEFINE M_TAB "AllowTabs" #DEFINE M_FORMTABS "Tabs" #DEFINE M_FORMPAGES "PageCount" #DEFINE M_INITIALVAL "" #DEFINE M_INITIALNUM "" #DEFINE M_BUTTONS "ButtonCount" #DEFINE M_SPACING "ButtonSpacing" #DEFINE M_CURPOS "" #DEFINE M_READ "WindowType" #DEFINE M_ALIGN "Alignment" #DEFINE M_VALUE "Value" #DEFINE M_INIT "Init" #DEFINE M_SHAPE "Shape" #DEFINE M_CURVE "Curvature" #DEFINE M_FORMAT "Format" #DEFINE M_INPUTMSK "InputMask" #DEFINE M_MAXLEN "MaxLength" #DEFINE M_SPINLO "SpinnerLowValue" #DEFINE M_SPINHI "SpinnerHighValue" #DEFINE M_KEYLO "KeyboardLowValue" #DEFINE M_KEYHI "KeyboardHighValue" #DEFINE M_SPININC "Increment" #DEFINE M_SPECIAL "SpecialEffect" #DEFINE M_ERASEPAGE "ErasePage" #DEFINE M_DRAWFRAME "DrawFrame" #DEFINE M_RELEASEWIND "ReleaseWindows" #DEFINE M_RELEASEERASE "ReleaseErase" #DEFINE M_TERMINATEREAD "TerminateRead" #DEFINE M_STRETCH "Stretch" #DEFINE M_COLORSOURCE "ColorSource" #DEFINE M_MARGIN "Margin" #DEFINE M_READSIZE "ReadSize" && property for listboxes #DEFINE M_TABSTOP "TabStop" && use for SAYs (read-only textboxes) #DEFINE M_SCALEMODE "ScaleMode" #DEFINE M_DISFORECOLOR "DisabledForeColor" #DEFINE M_DISBACKCOLOR "DisabledBackColor" #DEFINE M_ITEMFORECOLOR "ItemForeColor" #DEFINE M_ITEMBACKCOLOR "ItemBackColor" #DEFINE M_DISITEMFORECOLOR "DisabledItemForeColor" #DEFINE M_DISITEMBACKCOLOR "DisabledItemBackColor" #DEFINE M_SELITEMBACKCOLOR "SelectedItemBackColor" #DEFINE M_WORDWRAP "WordWrap" #DEFINE M_DEFAULT "Default" #DEFINE M_CANCEL "Cancel" && new Cancel property #DEFINE M_FORMACTIVATE "Activate" && Form activate #DEFINE M_AUTOACTIVATE "AutoActivate" #DEFINE M_ZOOMBOX "ZoomBox" *- DataNav properties #DEFINE M_AUTOLOADENV "AutoOpenTables" #DEFINE M_AUTOUNLOADENV "AutoCloseTables" #DEFINE M_ALIAS "Alias" #DEFINE M_WORKAREA "WorkArea" #DEFINE M_CURSORSRC "CursorSource" #DEFINE M_SOURCETYPE "SourceType" #DEFINE M_ORDER "Order" #DEFINE M_FILTER "Filter" #DEFINE M_EXCLUSIVE "Exclusive" #DEFINE M_CHILDALIAS "ChildAlias" #DEFINE M_CHILDINDEXTAG "ChildOrder" #DEFINE M_PARENTALIAS "ParentAlias" #DEFINE M_PARENTINDEXEXPR "RelationalExpr" #DEFINE M_RELATIONTYPE "RelationType" #DEFINE M_ONETOMANY "OneToMany" #DEFINE M_INITIALALIAS "InitialSelectedAlias" *- 3.0 Form Controls Classes - don't localize #DEFINE T_FSET "formset" #DEFINE T_FORM "form" #DEFINE T_LABEL "label" #DEFINE T_LINE "line" #DEFINE T_SHAPE "shape" #DEFINE T_LIST "listbox" #DEFINE T_BTN "commandgroup" #DEFINE T_BTNGRP "commandgroup" #DEFINE T_RADIO "optionbutton" #DEFINE T_RADIOGRP "optiongroup" #DEFINE T_CBOX "checkbox" #DEFINE T_SAY "textbox" #DEFINE T_GET "textbox" #DEFINE T_EDIT "editbox" #DEFINE T_POPUP "combobox" #DEFINE T_SPIN "spinner" #DEFINE T_OLE "oleboundcontrol" #DEFINE T_PICT "image" #DEFINE T_INV "commandgroup" #DEFINE T_INVGRP "commandgroup" #DEFINE T_PAGE "pageframe" #DEFINE T_DATANAV "dataenvironment" #DEFINE T_CURSOR "cursor" #DEFINE T_RELATION "relation" #DEFINE T_SUBCLASS "????" *- Misc things #DEFINE C_TRUE .T. && 1=1 #DEFINE C_FALSE .F. && 1=2 #DEFINE C_SCXEXT "SCX" && 2.x screen extension #DEFINE C_SCTEXT "SCT" && 2.x screen memo extension #DEFINE C_SPREXT "SPR" && 2.x screen gen extension #DEFINE C_VCXEXT "VCX" && 3.0 visual class extension #DEFINE C_VCTEXT "VCT" && 3.0 visual class extension #DEFINE C_MACEXT "_MAC" && extension to add for Mac files #DEFINE C_SEP " = " && property separator #DEFINE C_WINFONT "MS SANS SERIF" && FPW default font #DEFINE C_WINFSIZE 8 && FPW default font size #DEFINE C_MAXWINDS 25 #DEFINE C_MAXPLATFORMS 4 #DEFINE C_MAXSCREENS 5 #DEFINE C_20SCXFLDS 57 #DEFINE C_30SCXFLDS 23 #DEFINE C_SCXFLDS 79 #DEFINE C_PJX40FLDS 28 #DEFINE C_PJX30FLDS 26 #DEFINE C_PJX25FLDS 31 #DEFINE C_PJX20FLDS 33 #DEFINE C_FPCFLDS 10 #DEFINE C_20FRXFLDS 36 #DEFINE C_FRXFLDS 74 #DEFINE C_30FRXFLDS 75 #DEFINE C_20LBXFLDS 17 #DEFINE C_30DBCFLDS 8 && field count for DBCs -- need to be recompiled in 5.0 #DEFINE C_FILELEN 30 #DEFINE C_DOS "DOS" #DEFINE C_WINDOWS "WINDOWS" #DEFINE C_MAC "MAC" #DEFINE C_UNIX "UNIX" #DEFINE C_All "ALL" #DEFINE C_DEFSET "Formset" #DEFINE C_PAGEFRAME "PageFrame1" #DEFINE C_DEFPAGE "Page1" #DEFINE C_DEFDATANAV "DataEnvironment" #DEFINE C_DEFCURSOR "Cursor1" #DEFINE C_BACKDIR "OLD" #DEFINE C_FORMCLASS "form" #DEFINE C_THERMCLASS1 "thermometer" && single progress bar #DEFINE C_THERMCLASS2 "therm2" && double progress bar #DEFINE N_THERM2X .80 && portion of second bar devoted to converting project files -- must be < .097 #DEFINE N_THERM3X .90 && portion of second bar devoted to converting project files -- must be < .097 #DEFINE C_SELITEMCOLOR "164,200,240" && color for selected item in list #DEFINE C_DELOAD_METH "Init" && DataEnvironment method where IDX files are opened #DEFINE C_SEPARATOR "*----- " #DEFINE K_TIMEOUT_FACTOR 1000 && VFP seems to measure READTIMEOUT in milliseconds #DEFINE N_BLOCKSZ 0 && block size for newly created scx files #DEFINE N_BUFFSZ 1024 && amount to read at one time from compiled FRX code * Definitions for Objtype fields in screens/reports/labels #DEFINE N_OTHEADER 1 #DEFINE N_MAXTRANFILETYPES 3 && number of file types that transporter can handle (All,PJX, SCX, FRX) #DEFINE N_TRANFILE_PJX 1 #DEFINE N_TRANFILE_SCX 2 #DEFINE N_TRANFILE_FRX 3 #DEFINE C_CURSSOURCTYPE 1 #DEFINE N_PIXELMODE 1 && scalemode type #DEFINE I_DEFCOLORSOURCE 3 && default color source #DEFINE I_DEFCOLORSOURCE2 4 && default color source for lines #DEFINE I_WINCPCOLORSOURCE 5 && Windows Control Panel / Window Colors #DEFINE I_DISKFULLERR 56 && disk full error number #DEFINE C_LOGEXT "LOG" && extension for log file #DEFINE C_CONTROLS "CTL" #DEFINE C_DNO "DNO" #DEFINE C_VCX "VCX" #DEFINE N_VCXTYPE 99 #DEFINE C_30VERS "3.0" #DEFINE C_TRANSPORT "transprt" && transport program to use, if _transport is empty && it is passed the following parms: && m.g_scrndbf file to transport (C) && m.tp_filetype file type (N) see transprt.prg for possible values && m.dummy not used && m.gAShowMe 3 X 6 array && m.gOTherm ref to thermometer object && m.cRealName name of file to display in dialogs && m.lPJX called as part of a project? #DEFINE C_DATANAVLOAD "THIS.DataEnvironment.OpenTables" #DEFINE C_SETSKIP "SET SKIP TO " && don;t localize -- for SET SKIP to in DataEnvironment #DEFINE C_SELECT C_SETSKIP_CMMT_LOC + ; "SELECT " && don;t localize -- for SET SKIP to in DataEnvironment #DEFINE C_DATANAVOPEN "PROCEDURE Init" + C_CR #DEFINE C_FRXDEDESTROY C_CR + "PROCEDURE Destroy" + C_CR + ; C_FRXDESTROY_LOC + ; "THIS.OpenTables" + C_CR + ; "THIS.Init" + C_CR #DEFINE C_GOTOVARPRE "_iconv" #DEFINE C_GOTOVAREXT "GoToPlaceHolder" #DEFINE C_GOTO1 C_CR + C_GOTO1_CMMT_LOC + ; [LOCAL aTbl, iLen, i, iRec, cVar, iPrev] + C_CR + ; [iPrev = SELECT()] + C_CR + ; "DIMENSION aTbl[1,2]" + C_CR + ; [iLen = AUSED(aTbl)] + C_CR + ; [FOR i = 1 TO iLen] + C_CR + ; C_TAB + "cVar = '_iconv' + PROPER(aTbl[i,1]) + 'GoToPlaceHolder'" + C_CR +; C_TAB + [IF TYPE(cVar) # 'N'] + C_CR + ; C_TAB + C_TAB + [iRec = -2] + C_CR + ; C_TAB + [ELSE] + C_CR + ; C_TAB + C_TAB + [iRec = EVAL(cVar)] + C_CR + ; C_TAB + [ENDIF] + C_CR + ; C_TAB + "IF USED(aTbl[i,1])" + C_CR + ; C_TAB + C_TAB + "SELECT (aTbl[i,1])" + C_CR + ; C_TAB + C_TAB + [DO CASE] + C_CR + ; C_TAB + C_TAB + C_TAB + [CASE BETWEEN(iRec, 1, RECCOUNT())] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GOTO iRec] + C_CR + ; C_TAB + C_TAB + C_TAB + [CASE iRec = 0] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GO TOP] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [SKIP IIF(!BOF(),-1,0)] + C_CR + ; C_TAB + C_TAB + C_TAB + [CASE iRec = -1] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GO BOTTOM] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [SKIP IIF(!EOF(),1,0)] + C_CR + ; C_TAB + C_TAB + C_TAB + [OTHERWISE] + C_CR + ; C_TAB + C_TAB + C_TAB + C_TAB + [GO TOP] + C_CR + ; C_TAB + C_TAB + [ENDCASE] + C_CR + ; C_TAB + [ENDIF] + C_CR + ; [NEXT] + C_CR + ; [IF iPrev > 0] + C_CR + ; C_TAB + [IF USED(iPrev)] + C_CR + ; C_TAB + C_TAB + [SELECT (iPrev)] + C_CR + ; C_TAB + [ENDIF] + C_CR + ; [ENDIF] + C_CR + ; [RELEASE aTbl, iLen, i, iRec, cVar, iPrev] + C_CR #DEFINE C_GOTO2A [IF USED("] #DEFINE C_GOTO2 [")] + C_CR + C_TAB + [SELECT ] #DEFINE C_GOTO3 [ = IIF(BOF(), 0, IIF(EOF(), -1, RECNO()))] + C_CR + ; [ENDIF] + C_CR *- code for setup and cleanup in SCX files #DEFINE C_SETUP_CODE C_SETUP_CMMT_LOC + ; [PRIVATE m.compstat, m.currarea, m.rborder, m.talkstat] + C_CRLF + ; [IF SET("TALK") = "ON"] + C_CRLF + ; C_TAB + [SET TALK OFF] + C_CRLF + ; C_TAB + [m.talkstat = "ON"] + C_CRLF + ; [ELSE] + C_CRLF + ; C_TAB + [m.talkstat = "OFF"] + C_CRLF + ; [ENDIF] + C_CRLF + ; [m.compstat = SET("COMPATIBLE")] + C_CRLF + ; [SET COMPATIBLE FOXPLUS] + C_CRLF + ; C_CRLF + ; [m.rborder = SET("READBORDER")] + C_CRLF + ; [SET READBORDER ON] + C_CRLF + ; C_CRLF + ; [m.currarea = SELECT()] + C_CRLF + ; C_CRLF #DEFINE C_CLEANUP_CODE C_CLEANUP_CMMT_LOC + ; [IF TYPE("rborder") == 'C'] + C_CRLF + ; C_TAB + [SET READBORDER &rborder] + C_CRLF + ; [ENDIF] + C_CRLF + ; C_CRLF + ; [IF TYPE("talkstat") == 'C'] + C_CRLF + ; C_TAB + [IF m.talkstat = "ON"] + C_CRLF + ; C_TAB + C_TAB + [SET TALK ON] + C_CRLF + ; C_TAB + [ENDIF] + C_CRLF + ; [ENDIF] + C_CRLF + ; C_CRLF + ; [IF TYPE("compstat") == 'C'] + C_CRLF + ; C_TAB + [IF m.compstat = "ON"] + C_CRLF + ; C_TAB + C_TAB + [SET COMPATIBLE ON] + C_CRLF + ; C_TAB + [ENDIF] + C_CRLF + ; [ENDIF] + C_CRLF + C_CRLF #DEFINE C_SCXBACKEXT "S2X" #DEFINE C_SCTBACKEXT "S2T" #DEFINE C_FPCBACKEXT "C2C" #DEFINE C_FCTBACKEXT "C2T" #DEFINE C_FRXBACKEXT "F2X" #DEFINE C_FRTBACKEXT "F2T" #DEFINE C_LBXBACKEXT "L2X" #DEFINE C_LBTBACKEXT "L2T" #DEFINE C_VCXBACKEXT "V3X" #DEFINE C_VCTBACKEXT "V3T" #DEFINE N_3D 0 #DEFINE N_PLAIN 1 #DEFINE C_OPAQUE 1 #DEFINE N_TRANSPARENT 0 #DEFINE L_CONVERT .T. #DEFINE L_NOCONVERT .F. #DEFINE C_IDBYTE30 CHR(48) #DEFINE DT_DFLTTIME "01/01/95 12:00" *- Project types that need to be converted #DEFINE C_SCREENSET "s" #DEFINE C_SCREEN "S" #DEFINE C_MENU "M" #DEFINE C_QUERY "Q" #DEFINE C_REPORT "R" #DEFINE C_LABEL "B" #DEFINE C_FORMAT "F" #DEFINE C_HEADER "H" *- other (may be 3.0) project types #DEFINE C_SCXTYPE "K" #DEFINE C_VCXTYPE "V" #DEFINE C_PRGTYPE "P" #DEFINE C_DBCTYPE "d" && 3.0 database *- catalog manager file types #DEFINE C_FPCCATTYPE "fpc" #DEFINE C_FPCSCREENTYPE "scx" #DEFINE C_FPCLABELTYPE "lbx" #DEFINE C_FPCCSQUERYTYPE "csq" #DEFINE C_FPCUPQUERYTYPE "fpq" #DEFINE C_FPCSQLQUERYTYPE "qpr" #DEFINE C_FPCREPORTTYPE "frx" #DEFINE C_FPCDBFTYPE "dbf" #DEFINE C_FPCAPPTYPE "app" #DEFINE C_FPCPRGTYPE "prg" #DEFINE C_DB4CATTYPE "cat" #DEFINE C_DB4SCREENTYPE "scr" #DEFINE C_DB4LABELTYPE "lbl" #DEFINE C_DB4UPQUERYTYPE "upd" #DEFINE C_DB4SQLQUERYTYPE "qbe" #DEFINE C_DB4REPORTTYPE "frm" #DEFINE C_DB4DBFTYPE "dbf" *- DBase IV values #DEFINE dbiv_lbl_type 11 #DEFINE dbiv_scr_type 18 #DEFINE dbiv_frm_type 7 *- FRX ObjType values for new DataEnvironment objects #DEFINE N_FRX_DATAENV 25 #DEFINE N_FRX_CURSOR 26 #DEFINE N_FRX_RELATION 26 *- these codes replicate FOXPRO.H #DEFINEs *-- MessageBox parameters #DEFINE MB_OK 0 && OK button only #DEFINE MB_OKCANCEL 1 && OK and Cancel buttons #DEFINE MB_ABORTRETRYIGNORE 2 && Abort, Retry, and Ignore buttons #DEFINE MB_YESNOCANCEL 3 && Yes, No, and Cancel buttons #DEFINE MB_YESNO 4 && Yes and No buttons #DEFINE MB_RETRYCANCEL 5 && Retry and Cancel buttons *-- MsgBox return values #DEFINE IDOK 1 && OK button pressed #DEFINE IDCANCEL 2 && Cancel button pressed #DEFINE IDABORT 3 && Abort button pressed #DEFINE IDRETRY 4 && Retry button pressed #DEFINE IDIGNORE 5 && Ignore button pressed #DEFINE IDYES 6 && Yes button pressed #DEFINE IDNO 7 && No button pressed *-- Low Level File Constants #DEFINE F_READONLY 0 #DEFINE F_WRITEONLY 1 #DEFINE F_READWRITE 2 #DEFINE F_READONLY_UNBUFF 10 #DEFINE F_WRITEONLY_UNBUFF 11 #DEFINE F_READWRITE_UNBUFF 12 *- end of CONVERT.H*- cvtalert.h *- #INCLUDE file for cvtalert.vcx *- (c) Microsoft Corporation 1995 #DEFINE C_SELBACKDIR_LOC "Select a backup directory:" #DEFINE C_SELLOGFILE_LOC "Log filename:" #DEFINE C_SELECT_LOC "Select" #DEFINE C_SELCODEFILE_LOC "Code file:" #DEFINE C_CONVERTBOTH_LOC "Convert both Macintosh and \